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

VB程序设计VB程序设计作业参考答案一选择题15 ABC CB 610 CCA DC 1115 ABC DB 1520CDA CB 2125DBD CC 2530DAC AA 3135 DAC AA 3640 BCC CD 4145 CCC AC 4650DDB AD5155 ACA CD 5660 BCA DA 6165 BAADB 6670DBDAC 7175BBBAD 7680CDABC 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 1Private Sub Form_click()Dim a(3) As Integer, m As IntegerDo While m -1 And i 3m = InputBox(请输入第 & i + 1 & 条边)i = i + 1a(i) = mIf a(i) 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(3)Print 三角形的面积是; sElseMsgBox 三条边不能构成三角形！EndEnd IfEnd Sub2. Option Base 1Private Sub Form_click()Dim a, ba = 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 8c(i) = a(i) + b(i)Print c(i);Next iEnd Sub3.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); KeyCodeEnd 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) 通用sub p = 1 For i = 1 To n p = p * i Next iEnd SubFunction F(n As Long) As Long 通用Function p = 1 For i = 1 To n p = p * i Next i F = pEnd FunctionPrivate Sub Command1_Click() s = 0 For i = 1 To 3 a(i) = InputBox(请输入第 & i & 个数的值:) Call Su(a(i) s = s + p Next iPrint 用Sub过程求得 ; a(1); ! +; a(2); ! +; a(3); ! =; sEnd SubPrivate Sub Command2_Click()s = 0 For i = 1 To 3 a(i) = InputBox(请输入第 & i & 个数的值:) s = s + F(a(i) Next i Print 用Function过程求得 ; a(1); ! +; a(2); ! +; a(3); ! =; sEnd SubPrivate Sub Command3_Click() EndEnd Sub5. 如下图，在窗体上画一个图片框，一个文本框，再画两个标签。 填写下表 控件 默认名称 标题文本图片框Picture1空白标签1Label1求偶数的和标签2Label2输入数的范围文本框Text1空白 如图编写程序代码，要求键盘输入42，显示在文本框内；并将该整数范围内的偶数显示在图片框内。（每行打印7个数） Private Sub Form_Load()Text1.Text = 42End SubPrivate Sub Picture1_Click()k = 0For j = 1 To 42If k Mod 7= 0 Then Picture1.PrintIf j Mod 2 = 0 ThenPicture1.Print Str$(j);k = k + 1End IfNext jEnd Sub6. 如图在窗体上画两个命令按钮和一个文本框，要求单击第一个命令按钮时，文本框消失，单击第二个命令按钮时，文本框复出，并在文本框中显示“编写程序乐趣无限”。 Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Text = 编写程序乐趣无限Text1.Visible = TrueEnd Sub7. 如下图，在窗体上画一个图片框，一个文本框，再画两个标签。 填写下表 控件 默认名称 标题文本图片框Picture1空白标签1Label1输出在此范围内能同时被3和5整除的整数标签2Label2输入数的范围文本框Text1空白 编写程序代码，如图，要求键盘输入任意一个整数作上限，显示在文本框内；并将该整数范围内能同时被3和5整除的整数，显示在图片框内。 Public n As StringPrivate Sub Form_Load()n$ = InputBox(输入数的取值范围n)Text1.Text = n$End SubPrivate Sub Picture1_Click()n = Val(n$)k = 0For j = 1 To nIf j Mod 3 = 0 And j Mod 5 = 0 ThenPicture1.Print Str$(j);End IfNext jEnd Sub 8. 输入任意一个字符串，检查字符串是否是“回文”.当一个字符串顺读倒读是一样的,则这样 的字符串就是“回文”,如“LEVEL”, “MADAM”, “123321”等都是“回文”Private Sub Form_click()a$ = Inpu