VB选择题-阅读程序题(东华大学杜明老师).doc

补 充 习 题 一、选择题1. 一个对象可执行的动作被称为 ，而那些被一个对象所识别的动作被称为 。a. 事件，方法 b. 方法，事件 c. 属性，方法 d. 过程，事件2. 在下面这行代码中，frmForm2是_，Text是_，Edit是_。 frmForm2. Text=”Edit”a. 对象，属性，值 b. 对象，方法，值c. 方法，事件，属性 d. 方法，对象，值3. 在程序中，需要检查复选框的状态，下面哪一行代码可以正确地完成此功能？a. CheckBox1.Value=TempVariable b. TempVariable=Valuec. TempVariable= CheckBox1.Value d. CheckBox1.Value. TmpVariable4. 当程序运行到下面这段代码时出错了，错误的原因是什么？With TextBox1 .Text = VB.NET .Multiline = True .Width = 200 End Witha. a. With语句中只能设置两个属性 b. Textbox1后少了等号c. True和24均应放在双引号中 d. 每个属性前均应有一个小数点5. 如果要编写几个Sub子过程，并从多个窗体中访问这些过程。应该将这些过程放在哪一类模块中？a. 窗体模块 b. 标准模块 c. 类模块 d. 应用程序6. 下列哪一行代码显示一个标题为“Invalid File Name”和一条说明所选文件名非法的消息框？a. MsgBox(“所选文件名非法”,vbOKOnly,” Invalid File Name ”)b. MsgBox(vbOKOnly, “所选文件名非法”,” Invalid File Name ”)c. MsgBox(“所选文件名非法”, ” Invalid File Name ”,vbOKOnly)d. MsgBox(” Invalid File Name ”, “所选文件名非法”,vbOKOnly)7. 在下面那种情况下，会发生一个窗体的Load事件：a. 第一次使用窗体的Load方法时 b. 第一次使用窗体的Show方法时c. 窗体第一次被引用如果它还未被装入 d. 以上所有情况8. End语句会中止：a. 含有该语句的窗体 b. 一个模块中的所有窗体c. 最后一个打开的窗体 d. 所有的窗体和模块9. 在P1过程中用以下语句声明的一个变量对于应用程序中的哪些部分是可见的： Dim iC As Integera. 仅在P1过程中可见 b. 仅在P1模块中可见c. 对于项目中的所有窗体可见 d. 对于项目中的所有模块可见10. 在应用程序中加入两个文本框内容，但应用程序测试显示没有返回预期的值78，而是返回了3543。怎样解决这一问题？a. 用&符号连接字符串 b. 创建一个独立的变量来保存结果c. 用转换函数将字符串转换为整数 d. 使用标签中的值，而不是文本框的值11. 从一个字符串的第四个字符开始，获取5个字符，应使用：a. Len函数 b. Mid函数 c. Format函数 d. StrConv函数12. 在下面的语句中，if”A” “a” Then blnCheck=True，关于blnCheck的值的哪一种说法是正确的？a. blnCheck 被设为True b. BlnCheck被设为Falsec. blnCheck 的值保持不变 d. 以上都不对13. 在下面的例子中，如果列表框List1中没有选中的项，会发生什么？ List1.Items.RemoveAt(List1.SelectedIndex)a. 移去第一项 b. 移去最后一项c. 移去最后加入列表的那一项 d. 以上都不是14. 当多个单选按钮放在一个组框控件中时，a. 一次只能有一个单选按钮被选 b. 一次可以有多个单选按钮被选c. 当选中一个单选按钮时，框架控件的Value属性为True d. 以上都不是15. 为创建一个自定义的弹出式菜单，应：a. 修改系统菜单b. 向窗体中添加多个标签控件，然后把菜单属性设置为Truec. 使用ContextMenu控件d. 创建主菜单控件16. 工具栏按钮的图像是：a. 保存在一个Image控件里的b. 保存在窗体里的c. 根据工具栏按钮的功能，自动赋给工具栏按钮的d. 保存在一个ImageList控件里的17. 下面的代码段能完成什么功能？ Dim I As Integer For I = 0 To Controls.Count - 1 If TypeOf Controls(I) Is Button Then Controls(I).Enabled = False End If Next Ia. 使当前窗体中所有的命令按钮失效b. 使当前窗体中所有的命令按钮失效，最后一个按钮除外。c. 使项目中所有的命令按钮失效d. 使项目中所有的命令按钮失效，最后一个按钮除外。 18. 对于窗体,下面_属性在程序运行时其属性设置起作用。a. MaximizeBox b. BorderStyle c. Name d. 以上都不行19. 若要使命令按钮不可操作，要对_属性进行设置。a. Enabled b. Visible c. BackColor d. Caption20. 在一个语句内写多条语句时，每个语句之间用_符号分隔。a. , b. : c. 、 d. ;21. 一句语句要在下一行继续写，用_ 符号作为续行符。a. + b. - c. _ d. 22. 下面_是合法的变量名。a. X_yz b. 123abc c. integer d. X-y23. 下面_是不合法的整常数。a. 100 b. &O100 c. &H100 d. %10024. 表达式16/4-25*8/4 Mod 52的值为 。a. 14 b. 4 c. 20 d. 225. 在下列函数中，标准数学函数不包含_。a. 格式化函数 b. 普通数学函数 c. 三角函数 d. 对数函数26. 下列操作符的优先级最高的是_。a. b. c. d. Mod27. Int（198.555*100+0.5）/100的值_。a. 198 b. 199.6 c. 198.56 d. 20028. VB提供了结构化程序设计的三种基本结构，它们是_。a. 递归结构、选择结构、循环结构b. 选择结构、过程结构、顺序结构c. 过程结构、输入和输出结构、转向结构d. 选择结构、循环结构、顺序结构29. 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_。a. 递归结构 b. 选择结构c. 过程结构 d. 输入和输出结构30. _语句能实现多项分支选择。a. IfElse b. Select Case c. DoWhile d. DoUntil31. 下面程序运行后，显示的结果是_。Dim x If x Then MsgBox(x) Else MsgBox(x + 1)a. 1 b. 0 c. 1 d. 显示出错信息32. 语句If x=1 Then y=1，下列说法正确的是_。a. x=1和y=1均为赋值语句b. x=1和y=1均为关系表达式c. x=1为关系表达式，y=1为赋值语句d. x=1为赋值语句，y=1为关系表达式33. 使用下面那种结构时知道循环中语句执行的次数？a. DoLoop结构 b. Loop Until结构 c. ForNext结构 d. WhileWend结构34. 以下_是正确的ForNext结构。a. For x=1 To Step 10 Next xb. For x=3 To 3 Step-3 Next xc. For x=1 To 10Re： Next xIf I=10 Then GoTo red. For x=3 To 10 Step 3 Next y35. 下列循环能正常结束循环的是_。a. I=5Do I=I+1 Loop Until I0b. I=1Do I=I+2 Loop Until I0d. I=6Do I=I-2Loop Until I=136. 可以进行图形图像操作的控件有_。a. Label控件 b. PictureBox控件 c. Timer控件 d. ListBox控件37. 下面那种类型不属于组合框_。a. 下拉式组合框 b. 简单列表框 c. 简单组合框 d. 下拉式列表框38. 下面的哪个语句返回一个组合框中选中的选项的值？a. strSelection=cmbComboList.Textb. strSelection=cmbComboList.IndexItemc. Combo1.ListIndex=strSelectiond. Combo.strSelection39. 执行了下面的程序后，列表框中的数据项有_。Sub Form_Click()For I=1 to 6List1.AddItem INext IFor I=1 to 3List1.RemoveItem INext IEnd Suba. 1，5，6 b. 2，4，6 c. 4，5，6 d. 1，3，540. 在用菜单编辑器设计菜单时，必须输入的项有_。a. 快捷键 b. 标题 c. 索引 d. 名称41. 以下正确的语句是_。a. CommonDialog1.Filter = All Files | *.* | Pictures(*.Bmp) | *.Bmpb. CommonDialog1.Filter = “All Files” | “*.*” | “Pictures(*.Bmp)” | “*.Bmp”c. CommonDialog1.Filter = “All Files | *.* | Pictures(*.Bmp) | *.Bmp”d. CommonDialog1.Filter = All Files | *.* | Pictures(*.Bmp) | *.Bmp42. 当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是_。a. KeyPress、KeyDown、KeyUpb. KeyDown、KeyUp、KeyPressc. KeyDown、KeyPress、KeyUpd. 没有规律43. 下面关于顺序文件的描述正确的是_。a. 每条记录的长度必须相同b. 可通过编程对文件中的某条记录方便的修改c. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示d. 文件的组织结构复杂44. 下面关于随机文件的描述正确的是_。a. 每条记录的长度必须相同b. 一个文件中记录号不必唯一c. 可通过编程对文件中的某条记录方便的修改d. 文件的组织结构比顺序文件复杂45. 结构类型定义语句应出现在_。a. 窗体模块b. 标准模块c. 窗体模块和标准模块都可以d. 窗体模块和标准模块均不可以二、阅读程序(1) 选择结构1. 指出下列程序段的输出结果 Dim b As Boolean Dim n%, x%, i%, y% n = 345 x = 10000 i = 510: y = n x b = True If y = 4 Then GoTo 10MessageBox.Show(sum= & sum)3写出程序的运行结果Private Sub Form1_Click Dim a$, b$, c$, d$, e1$, f$, g$, h$ a = HELLOGOODMORNING b = WANGCHANGLI c = Microsoft.VisualBasic.Left(a, 5) + ! d = Microsoft.VisualBasic.Right(a, 7) e1 = Mid(a, 6, 4) f = Mid(b, Len(b) - 6, 5) + ! g = e1 + + d + ! h = c + + fMessageBox.Show(h + + g)End Sub4如果输入的值为175，则程序执行后输出的结果是？Private Sub Form1_Click Dim x$, a%, b%, c$ x = InputBox(input data) a = Int(x / 16) b = x - 16 * a c = 0123456789ABCDEF x = Mid(c, a + 1, 1) + Mid(c, b + 1, 1)MessageBox.Show(x)End Sub(2) 循环结构 1 指出下列程序段的输出结果（1）Dim i%, msg$ Do msg = msg + HELLO + vbCrLf i = i + 1 Loop Until i = 10MessageBox.Show(msg)（2）Dim i%, s% s = 1 : i = 10 Do While i 0 s = s * i i = i - 1 Loop MessageBox.Show(s= & s)（3）Dim ch%, msg$ For ch = Asc(X) To Asc(P) Step -1 msg = msg + Chr(ch) + If ch Asc(T) Then GoTo 20 Next ch20: MessageBox.Show(msg)2写出运行下面程序段后的显示结果 (1) Dim i%, msg$ For i = 0 To 4 If i = 3 Then Exit For msg = msg & i & Next IMessageBox.Show(msg + i= + Str(i)(2) Dim i%, msg$ For i = 0 To 4 If i = 3 Then GoTo m1 msg = msg & i & m1: Next i MessageBox.Show(msg + i= + Str(i) (3)Dim i%, j%, msg$ For i = 0 To 4 For j = 0 To 4 If i = 3 Then GoTo b1 msg = msg & i * 5 + j & Next j msg = msg & i= & Str(i) & vbCrLfb1: Next iMessageBox.Show(msg)(4)Dim i%, j%, msg$ For i = 0 To 4 For j = 0 To 4 If i = 3 Then Exit For msg = msg & i * 5 + j & Next j msg = msg & i= & Str(i) & vbCrLf Next i MessageBox.Show(msg)(5)Dim i%, j%, msg$ For i = 0 To 4 For j = 0 To 4 If i = j Then GoTo b1 msg = msg & i * 5 + j & Next j msg = msg & i= & Str(i) & vbCrLfb1: Next i MessageBox.Show(msg)(6)Dim i%, j%, msg$ For i = 0 To 4 For j = 0 To 4 If i = j Then GoTo b1 msg = msg & i * 5 + j & B1: Next j msg = msg & i= & Str(i) & vbCrLf Next i MessageBox.Show(msg)(7) Dim i%, msg$ For i = 1 To 26 msg = msg & Chr(Asc(A) + i - 1) & If i Mod 7 = 0 Then msg = msg & vbCrLf Next i MessageBox.Show(msg)3指出下列程序的运行结果 Dim i%, j%, msg$ Dim size%, seed% size = 5 : seed = 2 For i = 1 To size For j = 1 To i msg = msg & seed & seed = seed + 1 If seed = 10 Then seed = 1 Next j msg = msg & vbCrLf Next iMessageBox.Show(msg)4指出下列程序的运行结果 Dim n%, m% m = 14 n = 63 Do While m n Do While m n m = m - n Loop Do While n m n = n - m Loop LoopMessageBox.Show(m)5写出下面的程序执行后在文本框里输出的结果。Private Sub Form1_Click() Dim i%, j%, msg$ Dim b%, n%, a! TextBox1.Text = n = 5 a = (n + 1) / 2 For i = 1 To n b = Math.Abs(a - i) TextBox1.Text = TextBox1.Text & Space(b + 1) For j = 1 To n - 2 * b TextBox1.Text = TextBox1.Text & * Next j TextBox1.Text = TextBox1.Text & vbCrLf Next iEnd Sub(3) 过程1. 写出下列程序的运行结果Dim a%, b%, i%, msg$ Public Sub test(ByVal x As Integer, ByRef y As Integer) Dim a%, b% x = x + 1 y = y + 1 a = x * y b = x y msg = msg & vbCrLf msg = msg & A= & a & B= & b & X= & x & Y= & yEnd SubPrivate Sub Button1_Click a = 2 : b = 2 For i = 1 To 3 msg = msg & A= & a & B= & b test(a, b) msg = msg & vbCrLf Next i MessageBox.Show(msg)End Sub2. 设有函数说明Public Function sys(ByVal a%, ByVal b%, ByVal c%) As Integersys = 3 * a - 4 * b cEnd Function 当主程序执行下述各语句后，k的值是什么?k1 = sys(1, 2, 3)k2 = sys(1, 2, 1) - sys(0, 1, 1)k3 = sys(1, sys(1, 2, 3), 2 - 1)3. 阅读下列程序，写出输出结果Sub g1(ByVal x%, ByRef y%) Dim z% z = 2 * x TextBox1.Text = TextBox1.Text & x & & y & & z TextBox1.Text = TextBox1.Text & vbCrLf y = z - x End Sub Private Sub Form1_Click Dim x%, y%, z% x = 1 : y = 2 : z = 3 g1(x, y) TextBox1.Text = TextBox1.Text & x & & y & & z TextBox1.Text = TextBox1.Text & vbCrLf g1(x + 1, z) TextBox1.Text = TextBox1.Text & x & & y & & z TextBox1.Text = TextBox1.Text & vbCrLf End Sub4 写出下列程序的运行结果 Dim a%, b%, c%, msg$ Public Sub pc(ByVal a%, ByRef d%, ByRef b%) Dim c% a = a + 1 b = b + 2 c = a + d msg = a & & b & & c & vbCrLf End SubPrivate Sub Button1_Clicka = 2 : b = 3 : c = 4 Call pc(a, b, c) msg = msg & a & & b & & c & vbCrLf MessageBox.Show(msg) End Sub(4) 数组1 阅读下列程序，写出输出结果（输入10个数字分别从110）Dim i%, j%, A%(10), msg$ For i = 1 To 4 a(i) = InputBox(输入数组元素) Next i a(i) = InputBox(输入数组元素) j = i For i = 10 To j + 1 Step -1 a(i) = InputBox(输入数组元素) Next i For i = 1 To 9 msg = msg & A(i) & , Next iMessageBox.Show(msg & A(i)2 阅读下列程序，写出程序的输出结果Dim i%, v%, ia%(8), msg$ For i = 1 To 8 ia(i) = i Next i v = ia(8) For i = 7 To 1 Step -1 ia(i + 1) = ia(i) Next i ia(1) = v For i = 1 To 8 msg = msg & & ia(i) Next iMessageBox.Show(msg)3下列程序段依次将1，2，3，4，5，6，7，8，9读入两维数组s，试写出执行下列程序段后输出的结果。Dim i%, j%, s%(3, 3), msg$ For i = 1 To 3 For j = 1 To 3 s(i, j) = InputBox(i & , & j) Next j Next i For j = 1 To 3 For i = 3 To 1 Step -1 msg = msg & s(i, j) & Next i Next j MessageBox.Show(msg)4读下列程序，写出输出结果 Const n = 4 Dim i%, j%, a%(n, n), msg$ For j = 1 To n a(1, j) = n - j Next j For i = 2 To n For j = i To n a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 2 To n For j = 1 To i - 1 a(i, j) = a(j, i) Next j Next i For i = 1 To n For j = 1 To n msg = msg & Space(3) & a(i, j) Next j msg = msg & v