VB打印作业2(含答案)

VB 打印作业：认真练习注意总结 第 1 页 共 6 页 VB 综合作业综合作业 (2) 班级 姓名 学号 学委收齐按学号排好顺序学委收齐按学号排好顺序 1为了求 n 的阶乘，要求用户输入 n 的值。程序使用 InputBox 函数输入，要求对话框提示 信息为“请输入一个求阶乘的数： ” ，标题为“求数的阶乘” ，并且正确地把输入的信息转换 为数值存放到变量 n 中， 则使用的赋值语句为 （n = Val(InputBox(请输入一个求阶乘的数：请输入一个求阶乘的数： , 求数的阶乘求数的阶乘)） 2 如果使用 MsgBox 对话框显示提示信息 “退出本系统？” ， 并显示 “是 （Yes） ” 和 “否 （No） ” 两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息” ，则调用 MsgBox 函数的形式为（MsgBox(退出本系统？退出本系统？, 4 + 32 + 0, 提示信息提示信息) ） 3. 判别变量 i 是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（ If i Mod 2 = 0 Then Print i ） 4. 判别 a 是否等于 b，若 a=b，则输出字符串 “a is equal to b”的块结构条件语句为（ If a = b Then Print a is equal to b End If ） 5 在程序中设置窗体 Form1 的 Caption 属性为 “主窗体” ， 使用的赋值语句是 （Form1.Caption = 主窗体主窗体 ） 6. 若使文本框内能够接受多行文本，则要设置( multiline )属性的值为（ true ） 7. 要把图形文件“c:samplediannt.jpg”装载到图片框 Picture1 上，使用的语句为 Picture1.Picture = LoadPicture(c:samplediannt.jpg) ） 8. 若使图片框自动调整大小以适应装入的图形，则要设置( autosize )属性的值为（ true ） 9. 除了在程序使用 LoadPicture 函数装载图形外，还可以在设计阶段通过修改（picture ） 属性装载图形 10. 当单选按钮的 Value 属性为（ false ）时，表示该单选按钮处于未选中状态 11. 设置框架 Frame 上的文本内容需要使用（ caption ）属性 12. 在标签框上显示的内容由（ caption ）属性来实现 13. 在运行程序时，要使文本框获得焦点，则需使用（ setfocus ）方法 14. 要使命令按钮失效，则可以设置（ enabled ）属性的值为 False 来实现;若使命令 按钮在屏幕不可见，则可以通过修改（ visible ）属性实现 15. 以下程序的执行结果是什么？ Private Sub Command1_Click() Dim a%, b%, c%, s%, w%, t% a = -1: b = 3: c = 3 s = 0: w = 0: t = 0 If c 0 Then s = a + b If a = 0 Then If c 0 Then w = a - b Else t = c VB 打印作业：认真练习注意总结 第 2 页 共 6 页 End If c = a + b Print a, b, c Print s, w, t End Sub 16以下程序段运行的结果是什么？ s=36 Private Sub Command1_Click() Dim p%, s% p = 1: s = 1 Do p=p+2:s=s+p Loop While py” b) If x Then t = t * x c) If x Mod 3=2 Then ? x d) If x10 y=x+1 End Select b) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x =1 And x10 y=x*x+1 End Select 23. 执行下列程序段后屏幕上（ ） 。 i% = 10 : Sum = 0 Do While i 1 Sum = Sum + i i = i - 1 Loop Print Sum a) 无显示 b) 显示 10 c) 显示显示 54 d) 显示 55 24. 执行下列程序段输出结果是（ ） 。 x%=2 Do while x z And x + z y And y + z x Then MsgBox 能构成三角形能构成三角形, 64, 三角形类型三角形类型 If x = y And y = z Then MsgBox 是等边三角形是等边三角形, 64, 三角形类型三角形类型 ElseIf x = y Or y = z Or z = x Then MsgBox 是等腰三角形是等腰三角形, 64, 三角形类型三角形类型 ElseIf x 2 + y 2 = z 2 Or x 2 + z 2 = y 2 Or y 2 + z 2 = x 2 Then MsgBox 是直角三角形是直角三角形, 64, 三角形类型三角形类型 Else MsgBox 是任意三角形是任意三角形, 64, 三角形类型三角形类型 End If Else MsgBox 不能构成三角形不能构成三角形, 16, 三角形类型三角形类型 End If VB 打印作业：认真练习注意总结 第 6 页 共 6 页 30. 设计程序实现：输出 10 个 50-100 之间的