大学MOOC 2017秋VisualBasic程序设计（长安大学）(中国高校计算机教育大学MOOC联盟)1002301010 最新慕课完整章节测试答案
第1讲初始VisualBasic
文章目录
随堂测验
1、单选题：
关于VB6.0的语句书写规则中，正确的是______。
选项：
A: 一行只能书写一条语句
B: 语句中不能包含空格
C: 语句中只能包含关键字和运算符
D: 语句中可以包含常量
答案: 【 语句中可以包含常量】
2、判断题：
可以在通用声明段声明变量
选项：
A: 正确
B: 错误
答案: 【 正确】
第2讲可视化编程基础
随堂测验
1、单选题：
在图片框（PictureBox）控件中，用于存放图片的属性是______。
选项：
A: Image
B: Picture
C: Align
D: Caption
答案: 【 Picture】
2、判断题：
Image和PictureBox控件的对齐方式中，Image控件的Stretch属性设置为False与PictureBox控件的AutoSize属性设置为True效果相同
选项：
A: 正确
B: 错误
答案: 【 正确】
第3讲VB语言基础和顺序结构
随堂测验
1、单选题：
假设a、b、c都是已经定义好的单精度变量，则下列语句中，正确的赋值语句是_______。
选项：
A: a + b = c
B: 36 = sin(a)
C: c = a / b
D: sin(a) = b * c
答案: 【 c = a / b】
2、单选题：
关于InputBox函数的说法中，错误的是_______。
选项：
A: InputBox函数的作用是打开一个对话框，让用户输入信息。
B: InputBox函数不需要设置参数，可直接使用。
C: InputBox函数可以设置默认值。
D: InputBox函数可以设置提示信息。
答案: 【 InputBox函数不需要设置参数，可直接使用。】
3、判断题：
Print方法可以直接在窗体或图形框等对象上输出信息。
选项：
A: 正确
B: 错误
答案: 【 正确】
第4讲选择结构
随堂测验
1、单选题：
如果程序有语法错误，则下列说法正确的是_______。
选项：
A: 程序可以忽略错误正常执行的。
B: 程序是不能正常执行的。
C: 程序不能编辑修改。
D: 程序不能修改错误的语句。
答案: 【 程序是不能正常执行的。】
2、单选题：
如果程序有逻辑错误，则下列说法正确的是_______。
选项：
A: 程序是不能执行的。
B: 程序不能得到正确的结果。
C: 不能生成可执行程序。
D: 无法修改错误的语句。
答案: 【 程序不能得到正确的结果。】
第5讲循环结构
第5讲单元测验
1、单选题：
下列正确的For语句结构是_______。
选项：
A: For 1 <= i <= 10 ```Next
B: For 1 <= i and i <= 10 ```Next
C: For i=1 to 10 ```Next
D: For i=1,2,3,4 ```Next
E: For i=10 to 1 step -1 ```Next
答案: 【 For i=1 to 10 ```Next;
For i=10 to 1 step -1 ```Next】
2、单选题：
下列循环语句能正常结束的是_______。
选项：
A: i = 5Do While i > 0 i = i + 1Loop
B: i = 1Do i = i + 2Loop Until i = 10
C: i = 10Do i = i + 1Loop Until i > 0
D: i = 6Do i = i + 2Loop While i > 2
答案: 【 i = 10Do i = i + 1Loop Until i > 0】
3、单选题：
从循环体 Do ... Loop中退出，跳出循环体，应使用______。
选项：
A: Exit Loop
B: Exit Do
C: Exit While
D: End Do
E: End Loop
答案: 【 Exit Do】
4、单选题：
从循环体中 For ... Next中退出，跳出循环体，应使用______。
选项：
A: Exit For
B: Exit Next
C: Exit
D: End For
E: End Next
答案: 【 Exit For】
5、单选题：
循环语句 For i = 9 To -3 Step -3 的执行次数是__________。
选项：
A: 0
B: 1
C: 4
D: 5
E: 6
答案: 【 5】
6、单选题：
从键盘输入一个正整数，将该数的各位分离出来。 请在_________处填入适当的内容，完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数：")) Do While s > 0 s1 = __________ s = s 10 MsgBox(s1) Loop
选项：
A: s / 10
B: s - 10
C: s * 10
D: s mod 10
E: s 100
答案: 【 s mod 10】
7、单选题：
窗体上有一标签Label1，将1~9连接成123456789的9位数,显示在标签中。请在_________处填入适当的内容，完善程序。 Dim i%, s& s = 0 For i = 1 To 9 s = ___________ Next Label1.Caption = s
选项：
A: s + 10 * i
B: s * 10
C: s + 10 + i
D: s * 10 + i
E: s * i
答案: 【 s * 10 + i】
8、单选题：
下面程序的功能是在Label1中输出如图所示的图形。请在_________处填入适当的内容，完善程序。
Private Sub Command1_Click()
Dim i%, j%
Label1.Alignment = 2
For i = 1 To 6