このページはVisualBasicラーニングドリルのサポートサイトです。

問題プログラムはzip形式で圧縮してあります。ダウンロード後、解凍し、本書に沿ってご使用ください。

問題プログラムダウンロード(22.7 MB)

本書の正誤表

・誤P144の解答 InputName<> "青" Then
正しくは→inputcolor <> "青" Then
・誤P222の.NETのコードでCSng関数に閉じ括弧が無い
正しくは→Dim sintyou As Single = CSng(InputBox("身長を入力してください","入力"))
・誤P255の見出し MaxLengthプロパティとPasswordCharプロパティ
正しくは→MultiLineプロパティとScrollBarsプロパティ
・誤りP358VB6.0の回答コード
正しくは

Private Sub Command2_Click()
Dim GetData As String
Dim Buffer As String

Open "c:\data.txt" For Input As #1
While Not EOF(1)
Line Input #1, Buffer
GetData = GetData & Buffer & Chr(13)
Wend

Close #1
Label1.Caption = GetData
End Sub