このページはVisualBasicラーニングドリルのサポートサイトです。
問題プログラムはzip形式で圧縮してあります。ダウンロード後、解凍し、本書に沿ってご使用ください。
本書の正誤表
・誤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