VB实验指导书-测试题答案.doc

营销1042VB实验指导书测试题答案第1章测试题答案一、AABD第2章测试题答案一、BCDACACC 二、1Gotfocus2Lostfocus3Setfocus4Style，15S(165)6Vbp7. 18. ScrollBars三、1答：Private Sub Form_Click() Form1.BackColor = vbBlueEnd SubPrivate Sub Form_DblClick() Form1.BackColor = vbRedEnd Sub92答：（1）若在设计状态完成：在窗体上放一标签框，各对象属性按下表进行设置即可。对象属性属性值Form1Caption示例BackColor白色StartUpPosition2Label1Caption欢迎使用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 = 20End Sub第3章测试题答案一、BBDBCADA二、1 True ”cde”2 ”bcd” -123 True ”abc123xy”4 A*exp(-2*t)*sin(50*t+ 3)5 4/3*3.1416*r36 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 Else3购物优惠x Is 5000 Is 3000 Is 2000 Is 1000 Case Else41+2+。+N1000的最小N值Until s 1000 s = s + n5输出图形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 IfEnd Sub2找出不大于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 JIf K = I是素数 Then Print IExit For Next I End Sub3用近似公式计算ex值： Private Sub Command1_Click()Dim x As Integer, i As Integer, k As DoubleDim ex As Double, t As Doublex = Val(Text1.Text)ex = 1: i = 0: k = 1: t = 1Do While Abs(t) = 0.000001 i = i + 1 k = k * i t = x i / k ex = ex + t LoopText2.Text = ex End Sub4求的值。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=; sEnd Sub5求的值。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 Text3.Text = sEnd Sub第5章 测试题及答案一、AACBC CCCDB BABCCB二、1找最大数组元素：ExplicitOption A(4, 5) Randomize i = 1 To 4 j = 1 To 5 Int(90 * Rnd) + 10 Next i A(1,1) i = 1 To 4 j = 1 To 5A(i, j) A(i, j) i j 2互不相同的数组元素： While n 6 Int(9 - 1 + 1) * Rnd) + 1) k 不是重复数 n = n + 1 A(n) Text1.Text + Str(A(i) 3插入数组元素： A() Val(Text1.Text)Val(Text2.Text) 插入的下标 + 1 A(i - 1) 插入的数组元素 A( & i & )= & A(i) 44个数排序：If k1 k3 Then t = k1: k1 = k3: k3 = t 到此时，k1是三个数中最大数If k2 k3 Then t = k2: k2 = k3: k3 = t 到此时，k3是三个数中最小数Text2.Text Val(Text3.Text) d = Val(Text4.Text) a, b, d 三个数排序 b, c, d + CStr(b) + + CStr(c) + + CStr(d)5判断完全数：k + 1 A(k) i Sum + i 完全数 完全数(N) A(k) N; 不是完全数 6升序数： Mid(s, 2, 1) k3 = Mid(s, 3, 1) k1 = k2 And k2 = k3 True 升序数 Randomize Int(999 - 100 + 1) * Rnd) + 100 A(i); i / 5 =INT(i / 5) i = 1 To 10 A(i)三、1找最小数组元素：在（通用）处：要求强制显式声明变量，定义数组的默认下界为1Option ExplicitOption Base 1在窗体模块的（通用）处定义数组A，该数组可被本窗体的所有过程调用Dim A(3, 4) As Integer“产生数组”按钮Private Sub Command1_Click() Dim i As Integer, j As Integer Randomize 初始化随机数发生器 生成一个3行4列的数组，并输出到图片框中 For i = 1 To 3 i是行号，i从1循环到3 For j = 1 To 4 j是列号，j从1循环到4 A(i, j) = Int(999 - 100 + 1) * Rnd) + 100 用随机函数产生一个3位正整数赋给数组元素A(i, j) Picture1.Print A(i, j); 在图片框中输出A(i, j)，不换行 Next j 列号增加1 Picture1.Print 当1行结束后(行号要增加1时)再换行 Next i 行号增加1End Sub“开始查找”按钮Private Sub Command2_Click() Dim i As Integer, j As Integer Dim 最小值 As Integer Dim 最小值行下标 As Integer, 最小值列下标 As Integer 最小值 = A(1, 1) 先假设A(1, 1)是最小值 用穷举法将所有的数组元素与最小值比较 For i = 1 To 3 i是行号，i从1循环到3 For j = 1 To 4 j是列号，j从1循环到4 If A(i, j) N，求出M和N的最小公倍数Function 最小公倍数(M As Integer, N As Integer) As Integer Dim K As Integer For K = M To M * N If K M = K / M And K N = K / N Then 最小公倍数 = K Exit For End If Next KEnd FunctionPrivate Sub Command1_Click() Dim M As Integer, N As Integer, R As Integer M = Val(Text1.Text) N = Val(Text2.Text) 让N中保存小数 If M 5)4End Select 5Z六、编程题 答案不唯一Dim A(6) As IntegerPrivate Sub Command1_Click() Randomize 初始化随机发生器 Text1.Text = 清空第一个文本框 For i = 1 To 6 A(i) = Int(999 - 100 + 1) * Rnd + 100) 随机产生2位正整数 Text1.Text = Text1.Text + Str(A(i) 在文本框输出数组 Next iEnd SubPrivate Sub Command2_Click() 选择排序 Text2.Text = 清空第二个文本框 For i = 1 To 5 For j = i + 1 To 6 If A(i) A(j) Then t = A(i): A(i) = A(j): A(j) = t Next j Next i 输出排序结果 For i = 1 To 6 Text2.Text = Text2.Text & & A(i) 在第二个文本框输出排序结果 Next iEnd Sub16.2综合练习二答案一、 CDBBB CDBDB CAABC BCBCC CBDBD AACAA 二、填空题(1)Exe(2)Form1.Hide(3)分号或 ；(4)Print或Form1.Print(5)Form1.Caption=“计算机程序”(6)Command2.SetFocus(7)Text1. PasswordChar=”(8)Change(9)Dim X As Single(10)False三、12345678910四、读程序，写运行结果1. 参考答案 2 2. 参考答案 13 4 3. 参考答案 1 4. 参考答案 50 785. 参考答案 中国韩国香港五、1 100+Int(899*Rnd) 2 Put#1,i,k 3Close #14 Dim i As Integer 5 i Mod 10 6x13+x23+x33=i六、编程题(每题9分，共18分),说明: 程序答案并不唯一1.(1)、进行部分对象的属性设置，共3分，每个空1分。True ScrollBars Text(2)、事件代码设计，共6分。Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Ch