第1章测试题答案一、AABD
第2章测试题答案
一、BCDACACC
二、1．Gotfocus
2．Lostfocus
3．Setfocus
4．Style，1
5．S(165)
6．Vbp
7. 1
8. ScrollBars
三、1．答：
Private Sub Form_Click()
Form1.BackColor = vbBlue End Sub
Private Sub Form_DblClick() Form1.BackColor = vbRed End Sub
2．答：（1）若在设计状态完成：
（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．True ”cde”
2．”bcd”-12
3．True ”abc123xy”
4．A*exp(-2*t)*sin(50*t+ 3) 5．4/3*3.1416*r^3 6．Long & 7．Double # 8．关系逻辑
第4章测试题答案
一、BBBAB ADBDA ADBAC
二、1．判断奇偶数
InputBox("输入一个整数")
If a Mod 2 = 1 Then
Else
MsgBox a & "是偶数"
2．计算Y值
Val(Text1.Text)
x > 100 Then
x > 0 Then
Else
3．购物优惠
x
VB实验指导书测试题答案
Is > 5000 Is > 3000 Is > 2000 Is > 1000 Case Else 4．1+2+。。。+N>1000的最小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．用近似公式计算e x
值：!
...!2!112n x x x e n x
+
+++≈ Private Sub Command1_Click()
Dim x As Integer, i As Integer, k As Double Dim ex As Double, t As Double x = Val(Text1.Text)
ex = 1: i = 0: k = 1: t = 1 Do While Abs(t) >= 0. i = i + 1 k = k * i
t = x ^ i / k
ex = ex + t Loop
Text2.Text = ex End Sub
4．求100
1
991...4131211-++-+-的值。
Private Sub Form_Click()
Dim i As Integer, s As Double s = 0
For i = 1 To 100 s = s + (-1) ^ (i - 1) / i Next i
Print "s="; s End Sub
5．求)!
2()1(...!4!21)cos(242n x x x x n
n -+++-=的值。 Private Sub Command1_Click()
Dim x, n, s, i, j, k, m s = 1
x = Val(Text1.Text) n = Val(Text2.Text) m = 1
For i = 1 To n
m = m * x * x
k = 1
For j = 2 To 2 * n k = k * j Next j
s = s + (-1) ^ n * m / k Next i
