2020 Visual Basic程序设计(甘肃工业职业技术学院) 最新满分章节测试答案

文章目录[隐藏]

第5讲循环结构程序设计第5讲单元测试

本答案对应课程为:点我自动跳转查看
本课程起止时间为:2020-03-02到2020-07-10
本篇答案更新状态:已完结

第5讲循环结构程序设计第5讲单元测试

1、问题:运行下列程序，单击窗体后显示结果为（）。Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); NextEnd Sub
选项：
A: 31 31 4 31
B: 31 31 32 32
C: 4 31 5 32
D: 32 32 5 32
答案: 【 4 31 5 32】

2、问题:如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（）。For i = a To b Print iNext i
选项：
A:0
B:1
C:2
D:3
答案: 【0】

3、问题:在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。
选项：
A:15
B:18
C:21
D:24
答案: 【21】

4、问题:设有如下程序段：x = 2For i = 1 To 10 Step 2 x = x + iNext运行以上程序后，x的值是（）。
选项：
A:36
B:27
C:38
D:57
答案: 【27】

5、问题:在窗体上添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Text1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（）。
选项：
A:2
B:3
C:4
D:5
答案: 【3】

6、问题:下列程序段的执行结果为（）。x = 6For k = 1 To 10 Step -2 x = x + kNext kPrint k; x
选项：
A: -1 6
B: -1 16
C: 1 6
D: 11 31
答案: 【 1 6】

7、问题:执行下列程序段后，x的值为（）。Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2 x = x + i \ 5Next i
选项：
A:16
B:17
C:18
D:19
答案: 【18】

8、问题:在窗体上添加两个文本框Text1、Text2和一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = CStr(n) Text2.Text = CStr(x)End Sub运行时，单击命令按钮，Text1和Text2分别显示（）。
选项：
A:0和0
B:1和8
C:2和120
D:3和15180
答案: 【2和120】

9、问题:在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（）。
选项：
A:1 3.4 5.8
B:1 3 5
C:1 4 7
D:无数据输出
答案: 【1 3 5】

10、问题:在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a – 1 Loop While a <= 0 Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（）。
选项：
A:7 9
B:34 0
C:9 7
D:死循环
答案: 【9 7】

11、问题:下列程序段的执行结果为（）。i = 4: a = 5Do i = i + 1 a = a + 3Loop Until i >= 9Print i; a
选项：
A: 9 20
B: 10 20
C: 10 23
D: 9 23
答案: 【 9 20】

12、问题:下列代码的运行结果为（）。Private Sub Command1_Click() x = 1: y = 4 Do Until y >= 4 x = x / y y = y + 1 Loop Print xEnd Sub
选项：
A:1
B:4
C:8
D:20
答案: 【1】

13、问题:下列代码的运行结果为（）。Private Sub Command1_Click() n = 1 Do Until n > 6 Print n; n = n + 2.4 LoopEnd Sub
选项：
A: 1 3.4 5.8
B: 1 3 5