vb语言程序设计-在线作业-
VB 语言程序设计_ 在线作业_1 一、单选题 ( 每题 5 分, 共 20 道小题, 总分值 100 分 ) 1. 在窗体上有一个标签框控件，名称为 LblTime；一个计时器 控件，名称为 Timer1，要求每一秒在文本框中显示一次当前 的时间。程序代码为： Private Sub Timer1_ _ ( )LblTime.Caption = Time End Sub 在下划线上应填入的内容是（ ）。 (5 分) A. Visible B. Timer C. Interval D. Enabled 是否存疑 2. 表达式 4 + 5 6 * 7 / 8 Mod 9 的值是（ ）。 (5 分) A. 4 B. 6 C. 5 D. 7 是否存疑 3. 语句 Print 5 * 5 5 / 5 的输出结果是（ ）。 (5 分) A. 25 B. 1 C. 0 D. 5 是否存疑 4. 通过改变单选按钮控件的什么属性值，可以改变单选按钮的 选取状态（ ）。 (5 分) A. Value B. Appearance C. Style D. Caption是否存疑 5. 设 a = 6，则执行 x = IIf(a > 5, -1, 0)后，x 的值为（ ）。 (5 分) A. 5 B. 6 C. -1 D. 0 是否存疑 6. 设置复选框或单选按钮标题对齐方式的属性是（ ）。 (5 分) A. Align B. Alignment C. Sorted D. Value 是否存疑 7. 阅读下面的程序：Function func(n As Integer) As IntegerSum = 0For i = 1 To nSum = Sum + (i + 1) * iNext ifunc = Sum End Function Private Sub Command1_Click()Dim a As Integera = 5s = func(a)Print s End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 (5 分) A. 15 B. 80 C. 60 D. 70 是否存疑 8. 按文件存取方式和结构来区分有（ ）。 (5 分) A. 顺序文件和随机文件 B. ASCII 文件和二进制文件 C. 磁盘文件和打印文件 D. 程序文件和数据文件 是否存疑 9. 假定 Picture1 和 Text1 分别为图片框和文本框的名称，下列 不正确的语句是（ ）。 (5 分) A. Picture1.Print 25 B. Debug.Print 25 C. Print 25 D. Text1.Print 25 是否存疑 10. 在窗体上画两个文本框（其 Name 属性分别为 Text1 和 Text2）和一个命令按钮（其 Name 属性为 Command1）， 然后编写如下事件过程： Private Sub Command1_Click()x = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1Loop Text1.Text = Str(n)Text2.Text = Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别 为（ ）。 (5 分) A. 3 和 50 B. 1 和 0 C. 4 和 168 D. 2 和 72 是否存疑 11. 下列程序段的执行结果为（ ）。x = 3: y = 4 If x < y Then Print y;: Print x (5 分) A. 4 B. 4 3 C. 3 D. 3 4 是否存疑12. 下面控件中，用于将对象分组的是（ ）。 (5 分) A. 框架 B. 文本框 C. 复选框 D. 窗体 是否存疑 13. 以下语句的输出结果是（ ）。 a = Sqr(3) Print Format(a, “$#.#“) (5 分) A. $0001.732 B. $1.732 C. $1732 D. $1.732 是否存疑 14.阅读下面的程序： Function Func(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n <= 4x = x + yn = n + 1LoopFunc = x End Function Private 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 z End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 (5 分) A. 16 B. 26 C. 21 D. 31 是否存疑 15.一个语句如果在下一行继续写，应在本行尾部加符号（ ）。 (5 分) A. _ B. ; C. , D. : 是否存疑 16. 使用通用对话框控件时，要在打开的对话框的标题栏上显示 “保存文件”，应把这 4 个汉字赋给的属性变量是（） (5 分) A. FileTitle B. DialogTitle C. FontName D. FileName 是否存疑 17. 在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签框。列表框中显示若干城市的名称，当单击列表框中 的某一城市名时，在标签中显示选中城市的名称。下列能正 确实现上述功能的程序是（ ）。 (5 分) A. Priv ate Sub List 1_Cl ick()Label1.Name = List1.Text End Sub B. Priv ate Sub List 1_Click()Lbel1.Caption = List1.ListIndex End Sub C. Priv ate Sub List 1_Cl ick() Label1.Name = List1.ListIndex End Sub D. Priv ate Sub List 1_Cl ick() Label1.Caption = List1.Text End Sub 是否存疑 18. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox(“Enter the First integer“)b = InputBox(“Enter the Second integer“)Print b + a End Sub 程序运行后，单击命令按钮，先后在输入对话框中输入 456 和 123，则输出结果是（ ）。 (5 分) A. 579 B. 123 C. 123456 D. 456 是否存疑 19. 可唯一标志控件数组中某一个控件的属性是（ ）。 (5 分) A. Caption B. Name C. Index D. TabIndex 是否存疑 20. 为了在按下 Esc 键时执行某个命令按钮的事件过程，需要把 该按钮的哪个属性设为 True（ ）。 (5 分) A. Value B. Enabled C. Default D. Cancel
