《VB程序设计》作业参考答案

1、VB程序设计作业参考答案一.选择题1-5 ABC CB 610 CCA DC 11-15 ABC DB 15-20CDA CB 21-25DBD CC25-30DAC AA 31-35 DAC AA 36-40 BCC CD 41-45 CCC AC 46-50DDB AD51-55 ACA CD 56-60 BCA DA 61-65 BAADB 66-70DBDAC 71-72BB二.填空题(1 E (2 程序代码(3 CmdDisplay.Visible =False(4 t=a(j(5 And(6 回车符(7 text2.setfocus (8 3 (9 D=B:B=C:C=D (10

2、Random(11事件过程(12 打开对话框(13 3 (14 a(i,j=0 (15 L1.text(16 Put # (17 True (18 I MOD 4=0 (19 AaBbCc (20INT(Rnd*100 ;arr(21Output ;Write #1,StuNo,StuName,StuEng三.编程题1.Option Base 1Private Sub Form_click(Dim a(3 As Integer, m As IntegerDo While m <> -1 And i < 3m = InputBox("请输入第" &

3、i + 1 & "条边"i = i + 1a(i = mIf a(i < 0 ThenMsgBox "输入错误,请重新输入!"i = i - 1End IfLoopIf a(1 + a(2 > a(3 And Abs(a(1 - a(2 < a(3 Thens = (a(1 + a(2 + a(3 / 2s = Sqr(s * (s - a(1 * (s - a(2 * (s - a(3Print "三角形的面积是" sElseMsgBox "三条边不能构成三角形!"EndEnd IfEn

4、d Sub2.Option Base 1Private Sub Form_click(Dim a, ba = Array(2, 8, 7, 6, 4, 28, 70, 25b = Array(79, 27, 32, 41, 57, 66, 78, 80Dim c(8For i = 1 To 8c(i = a(i + b(iPrint c(i;Next iEnd Sub3.Private Sub Form_KeyDown(KeyCode As Integer, Shift As IntegerPrint spc(3; Chr$(KeyCode; spc(3; Hex$(KeyCode; spc(

5、3; Oct$(KeyCode; spc(3; KeyCode End SubPrivate Sub Form_Load(PrintShowPrint spc(3; "按键" spc(3; "16进制" spc(3; "8进制" spc(3; "10进制"PrintEnd Sub4.Dim a(3 As Long, s As Long, p As Long '通用-声明Sub Su(n As Long '通用subp = 1For i = 1 To np = p * iNext iEnd SubFu

6、nction F(n As Long As Long '通用Functionp = 1For i = 1 To np = p * iNext iF = pEnd FunctionPrivate Sub Command1_Click(s = 0For i = 1 To 3a(i = InputBox("请输入第" & i & " 个数的值:"Call Su(a(is = s + pNext iPrint "用Sub过程求得" a(1; "! +" a(2; "! +" a(3; "! =" s End SubPrivate Sub Command2_Click(s = 0For i = 1 To 3a(i = InputBox("请输入第" & i & " 个数的值:"s = s + F(a(iNext iPrint "用Function过程求得" a(1;