VB课后答案

习题一

一、填空题

1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等

2.三；设计（Design）模式、运行模式（Run）和中断（Break）模式

3、工程1；1；Form1

4、选择菜单“视图|立即窗口”即可打开“立即”窗口；它是Visual Basic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。 5、查看代码、查看对象；“查看对象”按钮；“查看代码”按钮 二、选择题

1.B 2.C 3.D 4.B 5.C 6.B 7.D 三、程序设计题 1.

Private Sub Command1_Click() Text1.Text = \欢迎使用VB！\End Sub

Private Sub Command2_Click() Text1.Text = \End Sub

Private Sub Command3_Click() End End Sub 2.

Private Sub Command1_Click()

Label1.Caption = \你好，张三！\ Command1.Enabled = False End Sub

Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub

Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 习题二

一、填空题 1. 0

2. “除数为零”错误 3. Long 4. False

5. Const PI = 3.14159 6. True 7. 4 8. 4

9. Dim Mystr As String*10 10. True

11. 1<=x And x<=5 二、程序设计题 1.

Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub

Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub

Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub

Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub

2.

Private Sub Command1_Click()

Label1.Caption = \百位数：\十位数：\\个位数：\End Sub 3.

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a + b

Label1.Caption = \ Text3.Text = c

End Sub

Private Sub Command2_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a - b

Label1.Caption = \ Text3.Text = c End Sub

Private Sub Command3_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a * b

Label1.Caption = \ Text3.Text = c End Sub

Private Sub Command4_Click()

Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a / b

Label1.Caption = \ Text3.Text = c

End Sub

Private Sub Command5_Click() Text1.Text = \ Text2.Text = \ Text3.Text = \End Sub

Private Sub Command6_Click() End End Sub 4.

Private Sub Command1_Click()

Dim c As String

c = InputBox(\输入带区号的电话号码，“0571-86281517”：\

号为4为，号码为8位，如输入区比 MsgBox (\区号：\号码：\End Sub

二、程序填空 1．

（1）i >= 0 （2）i < iMin 2．

（1）i >= 0 （2）i < iMin 3．

Private Sub Command1_Click()

Dim str1 As String, str2 As String str1 = Text1.Text str2 = \

m = 0

Do While m < Len(str1) / 2

str2 = str2 + Mid(str1, m + 1, 1)

str2 = str2 + Mid(str1, Len(str1) - m, 1) m = m + 1 Loop

Form1.Print str2 End Sub 4．

Private Sub Command1_Click()

Dim str1 As String, str2 As String str1 = Text1.Text str2 = \

m = 0

Do While m < Len(str1) / 2

str2 = str2 + Mid(str1, m + 1, 1) str2 = str2 + Mid(str1, Len(str1) - m, 1) m = m + 1 Loop

Form1.Print str2 End Sub 5.

Private Sub Form_Click() Dim i As Integer Dim k As Single Dim p As Integer Dim s As Single p = 1 s = 0

For i = 1 To 100 k = p / i p = -p s = s + k Next i

Form1.Print \End Sub

三、程序设计 1.

Private Sub Form_Click()

Dim x As Single, y As Single x = InputBox(\ If x > 10 Then

y = Sqr(x) + Sin(x * 3.14 / 180) ElseIf x = 0 Then y = 0 Else

y = 2 * x ^ 3 + 6 End If Print y

End Sub 2.

Private Sub Form_Click()

Dim i As Integer, n As Integer, m As Integer, s As Integer n = InputBox(\

Randomize For i = 1 To n

m = Int(Rnd * 90) + 10 If m Mod 2 = 0 Then s = s + m Next i

Label1.Caption = s End Sub 3.

Private Sub Command1_Click()

Dim i As Integer, n As Integer, a As Integer, b As Integer, c As Integer For i = 1 To 100 n = InputBox(\ If n >= 85 Then a = a + 1

ElseIf n >= 60 Then b = b + 1

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB课后答案在线全文阅读。