(VB程序设计作业参考答案.docVIP

《VB程序设计》作业参考答案 一．选择题 1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC 25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD 51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－75BBBAD 76—80CDABC 81-85ABCDC 86-90BAADD 91-95CBBAD 96.B 二．填空题 (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) Random 　 （11）事件过程 (12) 打开对话框 (13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr （21）Output ；Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序，随机 (25)INPUT,OUTPUT,APPEND （26）程序代码窗口的字符过大或过小，可以通过（工具→ 选项 → 编辑器格式 →大小）去改变。 （27）窗体、控件、对象 （28）界面设计 （29）对象、代码 （30）窗体、标准模块、类模块、工程 （31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) （32）E D （33）81 （34）程序，数据 （35）窗体、控件、对象 （36）对象、代码 （37）用户界面的窗体、执行具体操作的代码。 （38）Picture属性、剪切板把图形粘贴 三．编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m -1 And i 3 m = InputBox(请输入第 i + 1 条边) i = i + 1 a(i) = m If a(i) 0 Then MsgBox 输入错误，请重新输入！ i = i - 1 End If Loop If a(1) + a(2) a(3) And Abs(a(1) - a(2)) a(3) Then s = (a(1) + a(2) + a(3)) / 2 s = Sqr(s * (s - a(1)) * (s - a(2)) * (s - a(3))) Print 三角形的面积是; s Else MsgBox 三条边不能构成三角形！ End End If End Sub 2. Option Base 1 Private Sub Form_click() Dim a, b a = Array(2, 8, 7, 6, 4, 28, 70, 25) b = Array(79, 27, 32, 41, 57, 66, 78, 80) Dim c(8) For i = 1 To 8 c(i) = a(i) + b(i) Print c(i); Next i End Sub　 3. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print spc(3); Chr$(KeyCode); spc(3); Hex$(KeyCode); spc(3); Oct$(KeyCode); spc(3); KeyCode End Sub Private Sub Form_Load() Print Show Print spc(3); 按键; spc(3); 16进制; spc(3); 8进制; spc(3); 10进制 Print End Sub 4. Dim a(3) A