【中农大2014年最新】VB语言程序设计-在线作业_A 最终成绩：100.0.doc

一 单项选择题 1. Private Sub Form_Click() Dim m, n As Integer m = InputBox(请输入M 的值) m = Val(m) m1 = m n = InputBox(请输入N 的值) n = Val(n) n1 = n Do While n 0 remin = m Mod n m = n n = remin Loop Print m1, n1, m End Sub 程序运行后，单击窗体，在输入对话框中分别输入16和24，在程序在窗体上的输出结果为（ ）。 16 24 8 24 16 6 24 16 8 16 24 4 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 16 24 8 知识点： 2. Do Until 条件 循环体 Loop 则正确的描述是（ ）。 不论“条件”是否为“真”，至少要执行一次循环体 如果“条件”是一个为0的常数，则无限次执行循环体 如果“条件”是一个不为0的常数，则至少执行一次循环体 如果“条件”是一个为0的常数，则一次循环体也不执行 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 如果“条件”是一个为0的常数，则无限次执行循环体 知识点： 3. Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() x = 0 Do While x 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。 1和0 4和168 3和50 2和72 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 2和72 知识点： 4. x的值为（ ）。 x = 5 For i = 1 To 20 Step 2 x = x + i \ 5 Next i 21 20 25 24 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 21 知识点： 5. Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为（ ）。 15 0 20 -1 10 True 10 False 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 10 False 知识点： 6. Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 15 157 7 538 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 15 知识点： 7. Command1。然后编写如下程序： Private Sub Command1_Click() For i = 1 To 4 For j = 0 To i Print Chr$(65 + i); Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。 本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 知识点： 8. Option Base 1 Private Sub Form_Click() Dim Arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 Arr(i, j) = (i - 1) * 2 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print Arr(j, i); Next j Print Next i End Sub 程序运行后，单击窗体，输出结果是（ ）。 5 7 6 8 8 10 8 11 7 9 8 10 6 8 7 9 本题分值： 5.0用户得分： 5