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

一 单项选择题1. 阅读下面的程序：Private Sub Form_Click()Dim m, n As Integerm = InputBox(请输入M 的值)m = Val(m)m1 = mn = InputBox(请输入N 的值)n = Val(n)n1 = nDo While n 0remin = m Mod nm = nn = reminLoopPrint m1, n1, mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入16和24，在程序在窗体上的输出结果为（ ）。 16 24 824 16 624 16 816 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 = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。 1和04和1683和502和72本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 2和72知识点： 4. 执行下面的程序段后，x的值为（ ）。x = 5For i = 1 To 20 Step 2x = x + i 5Next i21202524本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 21知识点： 5. 阅读下面的程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（ ）。15 020 -110 True10 False本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 10 False知识点： 6. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i = 1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。 151577538本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 15知识点： 7. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 知识点： 8. 阅读下面的程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序运行后，单击窗体，输出结果是（ ）。 5 7 6 88 10 8 117 9 8 106 8 7 9本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 7 9 8 10知识点： 9. 用下面的语句所定义的数组的元素个数是（ ）。 Dim arr(3 To 5, -2 To 2)8121524本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 15知识点： 10. 在窗体上画一个命令按钮，Name属性为Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序运行后，单击命令按钮，输出结果是（ ）。 5674本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 5知识点： 11. 可唯一标志控件数组中某一个控件的属性是（ ）。 NameTabIndexIndexCaption本题分值： 5.0用户得分： 5.0教师评语： 用户解答： Index知识点： 12. 删除列表框中指定的项目所使用的方法为（ ）。 MoveItemRemoveItemRemoveMove本题分值： 5.0用户得分： 5.0教师评语： 用户解答： RemoveItem知识点： 13. 阅读下面的程序：Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（ ）。10 12 14 162 4 6 85 6 7 8程序出错本题分值： 5.0用户得分： 0.0教师评语： 用户解答： 10 12 14 16知识点： 14. 阅读下面的程序：Function Func(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n = 4x = x + yn = n + 1LoopFunc = xEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, n As Integer, z As Integerx = 1: y = 1For n = 1 To 6z = Func(x, y)Next nPrint zEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。31162621本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 31知识点： 15. 阅读下面的程序：Function F(a As Integer)Static cb = 0b = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（ ）。4 4 44 6 84 7 94 5 6本题分值： 5.0用户得分： 0.0教师评语： 用户解答： 4 7 9知识点： 16. 阅读下面的程序：Function func(n As Integer) As IntegerSum = 0For i = 1 To nSum = Sum + (i + 1) * iNext ifunc = SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 5s = func(a)Print sEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。 80701560本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 70知识点： 17. 按文件存取方式和结构来区分有（ ）。磁盘文件和打印文件顺序文件和随机文件ASCII文件和二进制文件程序文件和数据文件本题分值： 5.0用户得分： 5.0教师评语： 用户解答： 顺序文件和随机文件知识点： 18. 用Write和Print语句向文件中写入多个数据的差别在于（ ）。 Write语句不会自动在数据项之间插入逗号Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格Print语句自动在数据项之间插入逗号Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格本题分值： 5.0用户得分： 5.0教师评语： 用户解答： Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格知识点： 19. 下面关于顺序文件的描述正确的是（ ）。 文件的组织结构复杂可通过编程对文件中的某条记录方便地修改数据以ASCII码形式存放在文件中，所以可通过文本编