VB实验指导书-测试题参考答案.docVIP

第1章测试题答案 一、选择题 AABD 第2章测试题答案 一、选择题 BCDACACC 二、填空题 1．2．Lostfocus3．etfocus 4．Style，1 5．S(165) 6．VScrollBars 三、编程题 1．答：Private Sub Form_Click() Form1.BackColor = vbBlue End Sub Private Sub Form_DblClick() Form1.BackColor = vbRed End Sub 2．答：（1）若在设计状态完成： 在窗体上放一标签框，各对象属性按下表进行设置即可。 对象 属性 属性值 Form1 Caption 示例 BackColor 白色 StartUpPosition 2 Label1 Caption 欢迎使用VB6.0！ BackColor 蓝色 ForeColor 黄色 Font 黑体 斜体 20号 （2）若在运行状态完成： 编写窗体的Load事件过程如下： Private Sub Form_Load() Form1.BackColor = vbWhite Label1.Caption = 欢迎使用VB6.0！ Label1.ForeColor = vbYellow Label1.BackColor = vbBlue Label1.FontName = 黑体 Label1.FontItalic = True Label1.FontSize = 20 End Sub 第3章测试题答案 一、选择题 BBDBCADA 二、填空题 1．”cde” 2． ”” -12 3．rue ”abc123xy” 4．-2*t)*sin(50*t+ 3) 5．^3 6． Long 7． Double # 8． 关系 逻辑 第4章测试题答案 一、选择题 BBBAC ADCDAD 二、填空题 1．判断奇偶数 InputBox(输入一个整数,”4-奇偶数”) If a Mod 2 = 1 Then Else MsgBox a 是偶数 2．计算Y值 Val(Text1.Text) x 100 Then x 0 Then Else 3．购物优惠 x Is 5000 Is 3000 Is 2000 Is 1000 Case Else 4．1+2+3+。。。+N1000的最小N值 Until s 1000 s = s + n 5．输出图形 i = 1 To 6 j = 1 To 2 * i - 1 Print *; Next j 三、编程题 1．判断任意一个三位正整数是否为水仙花数。 Private Sub Command1_Click() k = InputBox(输入3位正整数) s1 = Val(Mid(k, 1, 1)) s2 = Val(Mid(k, 2, 1)) s3 = Val(Mid(k, 3, 1)) If s1 ^ 3 + s2 ^ 3 + s3 ^ 3 = Val(k) Then MsgBox k + 是水仙花数 Else MsgBox k + 不是水仙花数 End If End Sub 2．找出不大于1000的最大素数。 Private Sub Command1_Click() Dim I As Integer, J As Integer For I = 1000 To 1 Step -1 K = I是素数 先假设I是素数 以下判断I是否是素数 For J = 2 To I - 1 If I Mod J = 0 Then K = I不是素数 Next J If K = I是素数 Then Print I: Exit For Next I End Sub 3．用近似公式计算ex值： Private Sub Command1_Clic