大学MOOC VisualBasic程序设计(兰州理工大学)1451592218 最新慕课完整章节测试答案
第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、单选题：
单选按钮Option控件的__________属性值为True,表示选中该按钮。
选项：
A: Enabled
B: Value
C: Visible
D: Locked
答案: 【 Value 】
2、单选题：
复选框的CheckBox的Value属性有多种值，下列_________不属于该属性值。
选项：
A: vbUnchecked
B: vbSelected
C: vbChecked
D: vbGrayed
答案: 【 vbSelected】
3、判断题：
如果有多组相互独立的单选控件，应使用框架Frame控件，将各组单选控件放置在各个框架中。
选项：
A: 正确
B: 错误
答案: 【 正确】
第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
For j = 1 To ___________
Label1.Caption = Label1.Caption + "*"
Next j
Label1.Caption = Label1.Caption + vbCrLf
Next i
End Sub
选项：
A: 2 * i
B: 2 * i - 1
C: 2 * i + 1
D: 5
E: 3
答案: 【 2 * i - 1】
9、填空题：
下面程序段执行后，出了循环x的值为_______。Dim x%x = 1Do While x < 10 x = x * 3Loop
答案: 【 27】
10、填空题：
找出1～100内被3或7除整除的整数个数。请在_________处填入适当的内容(不要空格!!)，完善程序。Dim x%, i%x = 0For i = 1 To 100 If i Mod 3 = 0 Or i Mod 7 = 0 Then x = _________ End IfNextText1.Text = x
答案: 【 x+1##%_YZPRLFH_%##1+x##%_YZPRLFH_%##1+X##%_YZPRLFH_%##X+1】
随堂测验
1、单选题：
下列Do ``` Loop 循环计算2～100 偶数和，正确的是_______。
选项：
A: Dim sum%, i% sum = 0 i = 2 Do While i <= 100 sum = sum + i i = i + 2 Loop MsgBox (sum)
B: Dim sum%, i% sum = 0 i = i + 2 Do While i <= 100 sum = sum + i Loop MsgBox (sum)
C: Dim sum%, i% sum = sum + i i = 2 Do While i >= 100 i = i + 2 Loop MsgBox (sum)
D: Dim sum%, i% sum = 0 i = 2 Do sum = sum + i i = i + 2 Loop While i > 100 MsgBox (sum)
答案: 【 Dim sum%, i% sum = 0 i = 2 Do While i <= 100 sum = sum + i i = i + 2 Loop MsgBox (sum)】
2、单选题：
若有如下循环，程序执行后显示______次MsgBox。Dim s%Do While s<=3 s=s+1 MsgBox(s)Loop
选项：
A: 2
B: 3
C: 4
D: 5
答案: 【 4】
第6讲循环结构(续)
第6讲单元测验
1、单选题：
若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是__________。 Dim s$,ch$,k%s=""For k=1 TO Len(Text1.Text) ch = Mid(Text1.Text,k,1) s = ch+sNext kLabel1.Caption = s
选项：
A: BasicVisual
B: VISUALBASIC
C: cisaBlausiV
D: visualbasic
答案: 【 cisaBlausiV】
2、单选题：
有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是__________。 Private Sub Command1_Click()Dim min%, k%, a% For k = 1 To 4 a = Val(InputBox("输入一个整数")) If a < min Then min = a End If Next Label1.Caption = minEnd Sub
选项：
A: 14
B: 23
C: 56
D: 88
E: 0
答案: 【 0】
3、单选题：
刑警在处置某案件时采用“地毯式”方式搜寻犯罪嫌疑人，相当于计算机中的_____方法。
选项：
A: 枚举法
B: 迭代法
C: 递归法
D: 选择法
答案: 【 枚举法】
4、单选题：
两个小和尚合吃1个馒头，年轻和尚一次吃3个馒头，老和尚一次吃2个馒头。总共有40个和尚他们刚好吃40个馒头，问有多少个小和尚，年轻和尚和老和尚？程序如下，请在_________处选择适当的内容，完善程序。 Dim y%, s%, x% For x = 1 To 40 For y = 1 To 40 s = _________ If s / 2 + y * 3 + x * 2 = 40 Then Print x & "个老和尚， " & y & " 年轻和尚，" & s & " 个小和尚。" & vbCrLf End If Next Next
选项：
A: x + y
B: 40 - y
C: 40 + x
D: 40 - x - y
答案: 【 40 - x - y】
5、单选题：
若有程序，显示有规律的图形，效果如下图。 请在_________处选择适当的内容，完善程序。