VB前七章后习题参考答.docVIP

第一章 一、 √√×√√ √×√√× √××√× √×√ 二、 CDDCB ADABC 三、 可视 对象 事件 代码 控件 Proj1.vbp Frm1.frm 编译 可执行 第二章 一、 √×××√ ×√√√√ ×××√× √√√ 二、 BDACC BADCA CDBBB CBBBA 三、 String Long 4 xxx 145 6 3 False (x mod 10)*10+x\10 Int(Rnd*90)+10 a*b mod c log(x)+sin(300) const PI as single =3.1415926 日期 Int(i) +1 Alt+Y Enabled Maxlength Text1.setfocus Multiline Visible Alignment Autosize 第三章 一、 √×√√× ×√√×× 二、 ADDCB ABABA 三、 If xy then x=x+y : y=x-y : x=x-y 同类型的值或表达式 0或1 True 0 Enabled 四、（见作业3参考答案1、2、3和作业4参考答案1） 1. Private Sub Form_Click() Dim x, y As Single x = Val(InputBox(输入x的值, 输入)) If x 3 Then y = x + 3 ElseIf x = 1 Then y = x ^ 2 ElseIf x 0 Then y = Sqr(x) Else y = 0 End If Print y的值是：; y End Sub 2. Private Sub Command1_Click() Text1.Visible = False Print Tab(20); 欢迎进入 End Sub Private Sub Form_Load() Text1.PasswordChar = * Command1.Caption = 进入 Command1.Enabled = False End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text1.Text = abc Then Command1.Enabled = True Else MsgBox 输入错误, , 提示 End If End If End Sub 3. Private Sub Command1_Click() If Command1.Caption = 显示 Then Print Spc(10); 欢迎使用Visual Basic! Command1.Caption = 清除 Else Cls Command1.Caption = 显示 End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Command1.Caption = 显示 Command2.Caption = 退出 End Sub 4. Dim N As Integer Private Sub Command1_Click() Dim dif As Integer dif = Abs(Val(Text1.Text) - N) Print N Select Case dif Case 0 ms = 你猜对了！ Case 1 To 3 ms = * Case 4 To 10 ms = ** Case 11 To 50 ms = *** Case 51 To 100 ms = **** Case 101 To 200 ms = ***** Case 201 To 500 ms = ****** Case Else ms = ******* End Select MsgBox ms End Sub Private Sub Form_Load() Randomize N = Int(900 * Rnd) + 100 End Sub 第四章 一、 √√××√ ×√×√× ××× 二、 CCDBB ADB 三、 For i=0 to 9 : b(i)=i : next i Dim 数组名( ) [as 数据类型] 8 Additem True List1.clear 文本框 列表框 下拉组合框 简单组合框 下拉列表框 四、 0 5