2022 VB程序设计[321002214](兰州交通大学)1467033477 最新满分章节测试答案
本答案对应课程为:点我自动跳转查看
本课程起止时间为:2022-03-10到2022-06-27
本篇答案更新状态:已完结
第九讲 基本控制结构–循环结构（三） 第4章单元测验
1、 问题:设x是整型变量，与函数IIf(x>0,-x,x)有相同结果的代数式是：
选项：
A:|x|
B:-|x|
C:x
D:-x
答案: 【-|x|】
2、 问题:下列程序运行时，输出的结果是:Private Sub Form_Click() k = 2 If k >= 1 Then a = 3 If k >= 2 Then a = 2 If k >= 3 Then a = 1 Print aEnd Sub
选项：
A:3
B:1
C:0
D:2
答案: 【2】
3、 问题:下面不能在信息框中输出“VB”的是:
选项：
A:MsgBox "VB"
B:x=MsgBox（"VB"）
C:MsgBox（"VB"）
D:Call MsgBox "VB"
答案: 【Call MsgBox "VB" 】
4、 问题:要从For…Next循环中退出循环，应使用以下选项中哪条语句：
选项：
A:Exit
B:Exit For
C:Continue
D:Stop Loop
答案: 【Exit For】
5、 问题:以下正确的叙述是:
选项：
A:Select Case语句中的测试表达式可以是任何形式的表达式
B:Select Case语句中的测试表达式只能是数值表达式或者字符串表达式
C:执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行
D:如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10可行 …… End Select
答案: 【Select Case语句中的测试表达式只能是数值表达式或者字符串表达式】
6、 问题:执行下列程序段后，输出的结果为：x=3If Abs(x)>2 Then x=x-1 Else x=x+8Select Case xCase Is<5 x=x+1Case 5 to 10 x=x+2Case Else x=x+3End Select Print x
选项：
A:3
B:6
C:8
D:2
答案: 【3】
7、 问题:以下关于复选框的说法正确的是：
选项：
A:复选框的Enabled属性用于决定该复选框是否被选中
B:复选框的Value属性用于决定该复选框是否被选中
C:复选框的Checked属性用于决定该复选框是否被选中
D:复选框的Visible属性用于决定该复选框是否被选中
答案: 【复选框的Value属性用于决定该复选框是否被选中】
8、 问题:有如下程序段，运行程序，则窗体上显示的是： Private Sub Form_Click() Dim i As Integer, x As String, y As String x = "ABCDEFG" For i = 4 To 1 Step -1 y = y + Mid(x, i, 1) Next i Print yEnd Sub
选项：
A:ABCD
B:DCBA
C:DEFG
D:GFED
答案: 【DCBA】
9、 问题:下列程序段执行后，K的值是:S=0For K=1 to 9S=S+KNext KPrint K
选项：
A:9
B:10
C:45
D:50
答案: 【10】
10、 问题:下列程序代码的执行结果为:x=5y=-20 If Not x>0 then x=y-3 else y=x+3Print x-y
选项：
A:-3
B:5
C:28
D:25
答案: 【-3】
11、 问题:For语句的格式如下，下列说法错误的是： For <循环变量>=<初值> to <终值> [step <步长>] [<循环体>] [exit for] Next [<循环变量>]
选项：
A:步长只能为正数，不能为负数
B:步长为1时，可略去不写
C:初值、终值和步长都是数值表达式
D:next后的循环变量与for语句中的循环变量必须相同
答案: 【步长只能为正数，不能为负数】
12、 问题:以下程序段执行后，变量V3的值是：Dim V1,V2,V3V1=”Hello” : V2=”World” : V3= V1 & “ “ & V2
选项：
A:”Hello World”
B:” World”
C:”Hello ”
D:”HelloWorld”
答案: 【”Hello World”】
13、 问题:运行下列程序，执行语句Print i j的次数为： Privat Sub Form_Click() For i =1 to 3 For j =5 to 1 step –2 Print i j Next j Next i End Sub
选项：
A:7
B:9
C:12
D:15
答案: 【9】
14、 问题:在窗体上创建名为Text1的文本框和名为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim I As Integer, n As IntegerFor i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit ForNext iText1.Text=nEnd Sub程序运行后，单击命令按钮，在文本框中显示的值是：
选项：
A:2
B:3
C:4
D:5
答案: 【4】
15、 问题:以下程序运行后，单击窗体，输出结果是：Private Sub Form_Click()Dim m%, n%, t%m = 68: n = 51Do While m <> n Do While m > n m = m – n Loop Do While n > m n = n – m LoopLoopPrint m,End Sub
选项：
A:17
B:0
C:1
D:68
答案: 【17】
16、 问题:下面是一个体操评分程序,20位评委,除去一个最高分和一个最低分,计算平均分,补充程序Private Sub command1_click() Max = 0: Min = 10 For i = 1 To 20 n = Val(InputBox(" 请输入分数")) If n>max then Max = n If n < Min Then Min = n s = s + n Next is = : p = s / 18Print " 最高分:"; Max, "最低分:"; Min, "最后得分:"; pEnd Sub横线出应该填写的语句是：
选项：
A:s-max-min
B:s+max+min
C:s+max-min
D:x-max+min
答案: 【s-max-min】
17、 问题:复选框的Value属性为0表示：
选项：
A:复选框未被选中
B:复选框被选中
C:复选框内有灰色的钩
D:操作出错
答案: 【复选框未被选中】
18、 问题:下列哪条语句使得复选框Check1无效：
选项：
A:Check1.value=1
B:Check1.value=2
C:Check1.Style=1
D:Check1.Style=0
答案: 【Check1.value=2】
19、 问题:拖动滚动条的滑块将触发滚动条的哪个事件：
选项：
A:Slide
B:Scroll
C:DragOver
D:DragDrop
答案: 【Scroll】
20、 问题:执行下列语句后，x的值是：n=5:x=1:i=1Do x=x*i i=i+1Loop While i<n
选项：
A:10
B:15
C:24
D:120
答案: 【24】
21、 问题:如果x小于y的平方，则在窗体上输出“OK”，则下列哪条语句可以完成这个要求：
选项：
A:If x<y^2 Then "OK"
B:If x<y^2 Then Print "OK"
C:If x<y^2 Then Show "OK"
D:If x<y^2 Then Put "OK"
答案: 【If x<y^2 Then Print "OK"】
22、 问题:以下程序输出后的结果是：s=1For i=1 to 3 For j=0 to i-1 s=s+s*j Next j Print s;Next i
选项：
A:1 2
B:2 1
C:2 2 12
D:1 2 12
答案: 【1 2 12】
23、 问题:执行以下程序段后，窗体上的输出结果是：For n=1 to 20 If n MOD 3 <>0 Then m=m+n\3Next nPrint n
选项：
A:15
B:18
C:21
D:24
本文章不含期末不含主观题！！
本文章不含期末不含主观题！！
支付后可长期查看
有疑问请添加客服QQ 2356025045反馈
如遇卡顿看不了请换个浏览器即可打开
请看清楚了再购买哦，电子资源购买后不支持退款哦
