質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

3回答

881閲覧

繰り返し処理でChar型の変数を宣言して、Do~Loopを使う

fffu8

総合スコア37

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2020/02/18 05:16

前提・実現したいこと

VB.NETでdo~Loopを使用して、
実行結果 abcdefghijklmnopqrstuvwxyz
出したのですが、やり方がわかりません。

Module Module1

Sub Main() Dim character As Char = "a"c Do Until "z"c <= character character = Chr(Asc(character) + 1) Loop Console.WriteLine(CStr(character)) Console.ReadLine() End Sub

End Module

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答3

0

ベストアンサー

文字列を作成して最後に出力するならこんな感じ。

VB.NET

1Dim character As integer = asc("a"c) 2dim abc as string 3abc = "" 4Do Until asc("z"c) < character 5 abc = abc & chr(character) 6 character = character + 1 7Loop 8 9Console.WriteLine(abc)

一文字ずつ出力してよいならこんな感じ。

VB.NET

1Dim character As integer = asc("a"c) 2 3Do Until asc("z"c) < character 4 Console.Write(chr(character)) 5 character = character + 1 6Loop

投稿2020/02/18 07:09

ttyp03

総合スコア16998

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

fffu8

2020/02/18 07:42

ご丁寧にありがとうございます。こちらFor~Next文書くとどうなりますか? あと、Dim character As Char = "a"cのChar型を宣言し初期化してからString型の変数に格納して どのようにしたらいいですか?
ttyp03

2020/02/18 07:54

For Next だとこんなんでしょうか。 Dim character As integer For character = asc("a"c) To asc("z"c) Console.Write(Chr(character)) Next 後者だとこう。 Dim character As Char = "a"c dim abc as string abc = "" Do Until asc("z"c) < asc(character) abc = abc & character character = chr(asc(character) + 1) Loop Console.WriteLine(abc)
fffu8

2020/02/18 08:07

ありがとうございます。助かりました。
fffu8

2020/02/18 08:08

For Nextを使ってChar型の宣言の初期化を組み合わせはできますか?
ttyp03

2020/02/18 08:31

Char型だとFor Nextに使用できないので不可かと思われます。
ttyp03

2020/02/18 08:33

ここまででやり方は複数出たので、あとはご自分でお考え下さい。
fffu8

2020/02/18 08:48

ありがとうございます。無事できました。
guest

0

VBNET

1character = Chr(Asc(character) + 1)

ここではcharacterを置き換えているだけです。
abc~zとstringにしたいのであれば、それを格納するStringの変数を用意してそこに追加していきましょう。

投稿2020/02/18 05:47

YAmaGNZ

総合スコア10242

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

fffu8

2020/02/18 06:00

すみません。初心者であまり意味が分からないです。 totalと言う変数を作ってやりたいのですがどのように作ればよいですか?
fffu8

2020/02/18 06:09

すみません、昨日から始めたばかりであまり分かっていません。
YAmaGNZ

2020/02/18 06:14

プログラム作成について今までやったことがないのでしょう。 書籍なり私が提示したページなどの初心者用の解説ページなりでまずは学習されるべきかと思います。
fffu8

2020/02/18 06:29

1.Stringでくっつけてから、表示する 2.繰り返し中に表示する 今回の構成だと1になっているので、Stringが必要ですか?
YAmaGNZ

2020/02/18 06:42

1になっていません。 character = Chr(Asc(character) + 1) 最初に'a'が入っていたとしたら、Chr(Asc(character) + 1)が'b'になります。 その'b'をcharacterに代入しています。 代入とは前の値を忘れて、新しい値を入れることです。 このような初歩的な部分の理解をする為にも、書籍や初心者向けのページなどで学習することをお勧めします。
fffu8

2020/02/18 06:57

はい。ありがとうございます。
guest

0

ループで、Console.WriteLine(CStr(character))を繰り返していますから、1文字出力するたびに改行されて

a
b
c

というような縦書きの出力になっているのが解決したい問題だと推測いたします。

Console.WriteLine(CStr(character))

の行を

Console.Write(CStr(character))

に変更すれば、1文字ごとの改行がされなくなりますので、

abcdefghijklmnopqrstuvwxyz

という画面出力が得られるようになります。

投稿2020/02/18 05:35

coco_bauer

総合スコア6915

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

fffu8

2020/02/18 05:37

1文字を取り出しているのですが、abcdefg・・・となっている文字列(String)を作っていないです。 作り方がまだわかってあらず完成していません。
fffu8

2020/02/18 05:39

zだけが表示されます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問