大学MOOC VisualBasic程序设计(兰州理工大学)1451559184 最新慕课完整章节测试答案
第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讲循环结构
第1次单元测验
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 As Integer, 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 i 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、单选题：
下列选项中，属于Visual Basic程序设计方法特点的是_______。
选项：
A: 可视化、顺序驱动
B: 可视化、事件驱动
C: 面向对象、顺序驱动
D: 面向过程、事件驱动
答案: 【 可视化、事件驱动 】
10、单选题：
在Visual Basic集成开发环境中，如果工具箱不可见，应在______菜单中操作而使它可见。
选项：
A: 窗口
B: 视图
C: 编辑
D: 文件
答案: 【 视图】
11、单选题：
在Visual Basic集成开发环境中，窗体设计器的主要功能是______。
选项：
A: 建立用户界面
B: 编写源程序代码
C: 显示文件
D: 显示属性
答案: 【 建立用户界面】
12、单选题：
Visual Basic程序有3种工作模式,即设计模式、中断模式和______。
选项：
A: 编辑模式
B: 运行模式
C: 后台模式
D: 调试模式
答案: 【 运行模式】
13、单选题：
一个对象可以执行的动作与可被对象识别的动作分别称为______。
选项：
A: 事件、方法
B: 方法、事件
C: 属性、方法
D: 过程、事件
答案: 【 方法、事件】
14、单选题：
要在窗体Form1上显示“myfrm”，使用的语句是______。
选项：
A: Form.Caption="myfrm"
B: Form1.Caption="myfrm"
C: Form1.Print "myfrm"
D: Form. Print "myfrm"
答案: 【 Form1.Print "myfrm"】
15、单选题：
在窗体上表示控件位置和大小，其默认的刻度单位是______。
选项：
A: Twip
B: Point
C: Pixel
D: Milimeter
答案: 【 Twip】
16、单选题：
无论何种控件，共同具有的属性是______。
选项：
A: Text属性
B: Name属性
C: Caption属性
D: Autosize属性
答案: 【 Name属性】
17、单选题：
下列类型中不属于基本类型的是______。
选项：
A: 字节型
B: 单精度型
C: 货币型
D: 枚举型
答案: 【 枚举型】
18、单选题：
下列字符序列中合法的变量名是______。
选项：
A: Integer
B: 23B
C: x/y
D: VB345
答案: 【 VB345】
19、单选题：
下面变量中的单精度变量是______。
选项：
A: Ab$
B: Sum#
C: totl!
D: Ave%
答案: 【 totl!】
20、单选题：
如果x=-3.2，则下面表达式能使y变量的值等于-4的是______。
选项：
A: y=-Abs(x)
B: y=Int(x)
C: y=Fix(x)
D: y=-Int(Abs(x))
答案: 【 y=Int(x)】
21、单选题：
Rnd函数的值不可能为______。
选项：
A: 0
B: 1
C: 0.1234
D: 0.00005
答案: 【 1】
22、单选题：
表达式4+5 6 * 7 / 8 Mod 9 的值是______。
选项：
A: 4
B: 5
C: 6
D: 7
答案: 【 5】
23、单选题：
设有两个变量a、b，判断它们同时为0的逻辑表达式为______。
选项：
A: a=0 And b=0
B: a=0 Or b=0
C: a=0 Xor b=0
D: (a=0 And b<>0) And (a<>0 And b=0)
答案: 【 a=0 And b=0】
24、单选题：
表达式："12"+"34"的值是______。
选项：
A: "1234"
B: 12"34"
C: "46"
D: 46
答案: 【 "1234"】
25、单选题：
以下语句的输出结果是______。A=1.7324Print Format(A, "$$####.###")
选项：
A: $2
B: $$1.732
C: $1,732
D: $$0001.732
答案: 【 $$1.732 】
26、单选题：
为了给三个变量赋初值1，下面正确的赋值语句是_____。
选项：
A: x=1:y=1:z=1
B: x=1,y=1,z=1
C: x=y=z=1
D: xyz=1
答案: 【 x=1:y=1:z=1】
27、单选题：
假定有如下的事件过程：Private Sub Form_Click() x = InputBox("输入整数") MsgBox "输入的数据是：", , "输入数据：" & xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是_____。
选项：
A: 信息框的标题是“输入数据：10”
B: 输入对话框中显示的是“输入整数”
C: x的值是数值10
D: 信息框中显示的是“输入的数据是：”
答案: 【 x的值是数值10】
28、单选题：
下面程序段是求两个数中的大数，不正确的语句是_____。
选项：
A: Max=Iif(x>y,x,y)
B: If x>y Then Max=x Else Max=y
C: Max=xIf y>=x Then Max=y
D: If y>=x Then Max=yMax=x
答案: 【 If y>=x Then Max=yMax=x】
29、单选题：
下列程序段的执行结果是_____。x = 1y = 2If x * y < 1 Then y = y + 1 Else y = y - 2Print y - x
选项：
A: 0
B: 1
C: 2
D: -1
答案: 【 -1】
30、单选题：
程序的基本控制结构是_____。
选项：
A: Do-Loop结构、Do-While结构和For-Next结构
B: 子程序结构，自定义函数结构
C: 顺序结构，选择结构和循环结构
D: 单行结构，多行结构和多分支结构
答案: 【 顺序结构，选择结构和循环结构】
31、单选题：
下列选项中，属于Visual Basic程序设计方法特点的是_______。
选项：
A: 可视化、顺序驱动
B: 可视化、事件驱动
C: 面向对象、顺序驱动
D: 面向过程、事件驱动
答案: 【 可视化、事件驱动 】
32、单选题：
下面有关语句行说法正确的是_____。
选项：
A: 一行只能写一条语句
B: 一条语句可分写多行
C: 每行的首字符必须大写
D: 一行可写多条语句，但语句间要用分号分隔
答案: 【 一条语句可分写多行】
33、填空题：
下面程序段执行后，出了循环x的值为_______。Dim x%x = 1Do While x < 10 x = x * 3Loop
答案: 【 27】
34、填空题：
找出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讲循环结构(续)
第2次单元测验
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% a = Val(InputBox("输入一个整数"))