【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-VB补充习题选择题-阅读程序题 - 编程语言，希望本篇文章对您学习有所帮助。

    

补 充 习 题 一、选择题 1. 一个对象可执行的动作被称为 b 而那些被一个对象所识别的动作被称为 。

     a. 事件方法 b. 方法事件 c. 属性方法 d. 过程事件 2. 在下面这行代码中frmForm2是__a____Text是______Edit是______。

     frmForm2. Text”Edit” a. 对象属性值 b. 对象方法值 c. 方法事件属性 d. 方法对象值 3. 在程序中需要检查复选框的状态下面哪一行代码可以正确地完成此功能c a. CheckBox1.CheckedTempVariable b. TempVariable Checked c. TempVariable CheckBox1.Checked d. CheckBox1.Checked . TmpVariable 4. 当程序运行到下面这段代码时出错了错误的原因是什么d With TextBox1 Text quotVB.NETquot Multiline True Width 200 End With a. With语句中只能设置两个属性 b. Textbox1后少了等号 c. True和200均应放在双引号中 d. 每个属性前均应有一个小数点 5. 如果要编写几个Sub子过程并从多个窗体中访问这些过程。

    应该将这些过程放在哪一类模块中b a. 窗体模块 b. 标准模块 c. 类模块 d. 应用程序 6. 下列哪一行代码显示一个标题为“Invalid File Name”和一条说明所选文件名非法的消息框a a. MsgBox“所选文件名非法”vbOKOnly” Invalid File Name ” b. MsgBoxvbOKOnly “所选文件名非法”” Invalid File Name ” c. MsgBox“所选文件名非法” ” Invalid File Name ”vbOKOnly d. MsgBox” Invalid File Name ” “所选文件名非法”vbOKOnly 7. 在下面那种情况下会发生一个窗体的Load事件d a. 第一次使用窗体的Load方法时 b. 第一次使用窗体的Show方法时 c. 窗体第一次被引用如果它还未被装入 d. 以上所有情况 8. End语句会中止d a. 含有该语句的窗体 b. 一个模块中的所有窗体 c. 最后一个打开的窗体 d. 所有的窗体和模块 9. 在P1过程中用以下语句声明的一个变量对于应用程序中的哪些部分是可见的a Dim iC As Integer a. 仅在P1过程中可见 b. 仅在P1模块中可见 c. 对于项目中的所有窗体可见 d. 对于项目中的所有模块可见 10. 在应用程序中加入两个文本框内容但应用程序测试显示没有返回预期的值78而是返回了3543。

    怎样解决这一问题c a. 用’amp’符号连接字符串 b. 创建一个独立的变量来保存结果 c. 用转换函数将字符串转换为整数 d. 使用标签中的值而不是文本框的值 11. 从一个字符串的第四个字符开始获取5个字符应使用b a. Len函数 b. Mid函数 c. Format函数 d. StrConv函数 12. 在下面的语句中if”A” gt “a” Then blnCheckTrue关于blnCheck的值的哪一种说法是正确的c a. blnCheck 被设为True b. BlnCheck被设为False c. blnCheck 的值保持不变 d. 以上都不对 13. 在下面的例子中如果列表框List1中没有选中的项会发生什么d List1.Items.RemoveAtList1.SelectedIndex a. 移去第一项 b. 移去最后一项 c. 移去最后加入列表的那一项 d. 以上都不是 14. 当多个单选按钮放在一个组框控件中时a a. 一次只能有一个单选按钮被选 b. 一次可以有多个单选按钮被选 c. 当选中一个单选按钮时框架控件的Value属性为True d. 以上都不是 15. 为创建一个自定义的弹出式菜单应c a. 修改系统菜单 b. 向窗体中添加多个标签控件然后把菜单属性设置为True c. 使用ContextMenu控件 d. 创建主菜单控件 16. 工具栏按钮的图像是d a. 保存在一个Image控件里的 b. 保存在窗体里的 c. 根据工具栏按钮的功能自动赋给工具栏按钮的 d. 保存在一个ImageList控件里的 17. 下面的代码段能完成什么功能a Dim I As Integer For I 0 To Controls.Count - 1 If TypeOf ControlsI Is Button Then ControlsI.Enabled False End If Next I a. 使当前窗体中所有的命令按钮失效 b. 使当前窗体中所有的命令按钮失效最后一个按钮除外。

     c. 使项目中所有的命令按钮失效 d. 使项目中所有的命令按钮失效最后一个按钮除外。

     18. 对于窗体下面__d____属性在程序运行时其属性设置起作用。

     a. MaximizeBox b. BorderStyle c. Name d. 以上都不行 19. 若要使按钮不可操作要对__a____属性进行设置。

     a. Enabled b. Visible c. BackColor d. Caption 20. 在一个语句内写多条语句时每个语句之间用___b___符号分隔。

     a. b. : c. 、 d. 21. 一句语句要在下一行继续写用__c____ 符号作为续行符。

     a. b. - c. _ d. … 22. 下面____a__是合法的变量名。

     a. X_yz b. 123abc c. integer d. X-y 23. 下面__d____是不合法的整常数。

     a. 100 b. ampO100 c. ampH100 d. 100 24. 表达式16/4-258/4 Mod 52的值为 b 。

     a. 14 b. 4 c. 20 d. 2 25. 在下列函数中标准数学函数不包含_a____。

     a. 格式化函数 b. 普通数学函数 c. 三角函数 d. 对数函数 26. 下列操作符的优先级最高的是__c____。

     a. b. c. d. Mod 27. Int198.5551000.5/100的值__c____。

     a. 198 b. 199.6 c. 198.56 d. 200 28. VB提供了结构化程序设计的三种基本结构它们是_d_____。

     a. 递归结构、选择结构、循环结构 b. 选择结构、过程结构、顺序结构 c. 过程结构、输入和输出结构、转向结构 d. 选择结构、循环结构、顺序结构 29. 结构化程序由三种基本结构组成下面属于三种基本结构之一的是_b_____。

     a. 递归结构 b. 选择结构 c. 过程结构 d. 输入和输出结构 30. _b_____语句能实现多项分支选择。

     a. If…Else b. Select Case c. Do…While d. Do…Until 31. 下面程序运行后显示的结果是_a_____。

     Dim x If x Then MsgBoxx Else MsgBoxx 1 a. 1 b. 0 c. –1 d. 显示出错信息 32. 语句If x1 Then y1下列说法正确的是___c___。

     a. x1和y1均为赋值语句 b. x1和y1均为关系表达式 c. x1为关系表达式y1为赋值语句 d. x1为赋值语句y1为关系表达式 33. 使用下面那种结构时知道循环中语句执行的次数c a. Do??Loop结构 b. Loop Until结构 c. For??Next结构 d. While??Wend结构 34. 以下______是正确的For…Next结构。

    b a. For x1 To Step 10 ???? Next x b. For x3 To –3 Step-3 ???? Next x c. For x1 To 10 Re ???? Next x If I10 Then GoTo re d. For x3 To 10 Step 3 ???? Next y 35. 下列循环能正常结束循环的是__bc____。

     a. I5 Do II1 Loop Until Ilt0 b. I1 Do II2 Loop Until Ilt10 c. I10 Do II1 Loop Until Igt0 d. I6 Do II-2 Loop Until I1 36. 可以进行图形图像操作的控件有__b____。

     a. Label控件 b. PictureBox控件 c. Timer控件 d. ListBox控件 37. 下面那种类型不属于组合框__b____。

     a. 下拉式组合框 b. 简单列表框 c. 简单组合框 d. 下拉式列表框 38. 下面的哪个语句返回一个组合框cmbComboList中选中的选项的值a a. strSelectioncmbComboList.SelectedItem b. strSelectioncmbComboList.SelectedIndex c. cmbComboList.SelectedItem strSelection d. cmbComboList.SelectedIndexstrSelection 39. 执行了下面的程序后列表框中的数据项有__d___。

     Dim i For i 1 To 6 ListBox1.Items.Addi Next i For i 1 To 3 ListBox1.Items.RemoveAti Next i a. 156 b. 246 c. 456 d. 135 40. 在用菜单编辑器设计菜单时必须输入的项有___d___。

     a. 快捷键 b. 标题 c. 索引 d. 名称 41. 当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件这三个事件发生的顺序是_c_____。

     a. KeyPress、KeyDown、KeyUp b. KeyDown、KeyUp、KeyPress c. KeyDown、KeyPress、KeyUp d. 没有规律 42. 下面关于顺序文件的描述正确的是____c__。

     a. 每条记录的长度必须相同 b. 可通过编程对文件中的某条记录方便的修改 c. 数据只能以ASCII码形式存放在文件中所以可通过文本编辑软件显示 d. 文件的组织结构复杂 43. 下面关于随机文件的描述正确的是acd_____。

     a. 每条记录的长度必须相同 b. 一个文件中记录号不必唯一 c. 可通过编程对文件中的某条记录方便的修改 d. 文件的组织结构比顺序文件复杂 44. 结构类型定义语句应出现在___c___。

     a. 窗体模块 b. 标准模块 c. 窗体模块和标准模块都可以 d. 窗体模块和标准模块均不可以 二、阅读程序 1 选择结构 1. 指出下列程序段的输出结果 Dim b As Boolean Dim n x i y n 345 x 10000 i 5 10: y n x b True If y lt 1 Then b False x x 10 i i - 1 End If If Not b Then GoTo 10 MessageBox.Showquotnbquot amp Formati quot0000quot 2. 下列程序段将打印什么结果 Dim i sum sum 0.0 i 7 10: Select Case i Case 1 4 7 sum sum 1 Case 2 3 6 Case 0 1 5 sum sum 2 End Select i i - 1 If i gt 4 Then GoTo 10 MessageBox.Showquotsumquot amp sum 3写出程序的运行结果 Private Sub Form1_Click???? Dim a b c d e1 f g h a quotHELLOGOODMORNINGquot b quotWANGCHANGLIquot c Microsoft.VisualBasic.Lefta 5 quotquot d Microsoft.VisualBasic.Righta 7 e1 Mida 6 4 f Midb Lenb - 6 5 quotquot g e1 quot quot d quotquot h c quot quot f MessageBox.Showh quot quot g End Sub 4如果输入的值为175则程序执行后输出的结果是 Private Sub Form1_Click???? Dim x a b c x InputBoxquotinput dataquot a Intx / 16 b x - 16 a c quot0123456789ABCDEFquot x Midc a 1 1 Midc b 1 1 MessageBox.Showx End Sub 2 循环结构 1 指出下列程序段的输出结果 1Dim i msg Do msg msg quotHELLOquot vbCrLf i i 1 Loop Until i 10 MessageBox.Showmsg 2Dim i s s 1 : i 10 Do While i gt 0 s s i i i - 1 Loop MessageBox.Showquotsquot amp s 3Dim ch msg For ch AscquotXquot To AscquotPquot Step -1 msg msg Chrch quot quot If ch lt AscquotTquot Then GoTo 20 Next ch 20: MessageBox.Showmsg 2写出运行下面程序段后的显示结果 1 Dim i msg For i 0 To 4 If i 3 Then Exit For msg msg amp i amp quot quot Next I MessageBox.Showmsg quotiquot Stri 2 Dim i msg For i 0 To 4 If i 3 Then GoTo m1 msg msg amp i amp quot quot m1: Next i MessageBox.Showmsg quotiquot Stri 3 Dim i j msg For i 0 To 4 For j 0 To 4 If i 3 Then GoTo b1 msg msg amp i 5 j amp quot quot Next j msg msg amp quotiquot amp Stri amp vbCrLf b1: Next i MessageBox.Showmsg 4 Dim i j msg For i 0 To 4 For j 0 To 4 If i 3 Then Exit For msg msg amp i 5 j amp quot quot Next j msg msg amp quotiquot amp Stri amp vbCrLf Next i MessageBox.Showmsg 5 Dim i j msg For i 0 To 4 For j 0 To 4 If i j Then GoTo b1 msg msg amp i 5 j amp quot quot Next j msg msg amp quotiquot amp Stri amp vbCrLf b1: Next i MessageBox.Showmsg 6 Dim i j msg For i 0 To 4 For j 0 To 4 If i j Then GoTo b1 msg msg amp i 5 j amp quot quot B1: Next j msg msg amp quotiquot amp Stri amp vbCrLf Next i MessageBox.Showmsg 7 Dim i msg For i 1 To 26 msg msg amp ChrAscquotAquot i - 1 amp quot quot If i Mod 7 0 Then msg msg amp vbCrLf Next i MessageBox.Showmsg 3指出下列程序的运行结果 Dim i j msg Dim size seed size 5 : seed 2 For i 1 To size For j 1 To i msg msg amp seed amp quot quot seed seed 1 If seed 10 Then seed 1 Next j msg msg amp vbCrLf Next i MessageBox.Showmsg 4指出下列程序的运行结果 Dim n m m 14 n 63 Do While m ltgt n Do While m gt n m m - n Loop Do While n gt m n n - m Loop Loop MessageBox.Showm 5写出下面的程序执行后在文本框里输出的结果。

     Private Sub Form1_Click Dim i j msg Dim b n a TextBox1.Text quotquot n 5 a n 1 / 2 For i 1 To n b Math.Absa - i TextBox1.Text TextBox1.Text amp Spaceb 1 For j 1 To n - 2 b TextBox1.Text TextBox1.Text amp quotquot Next j TextBox1.Text TextBox1.Text amp vbCrLf Next i End Sub 3 过程 1. 写出下列程序的运行结果 Dim a b i msg Public Sub testByVal x As Integer ByRef y As Integer Dim a b x x 1 y y 1 a x y b x y msg msg amp vbCrLf msg msg amp quotAquot amp a amp quot Bquot amp b amp quot Xquot amp x amp quot Yquot amp y End Sub Private Sub Button1_Click…… a 2 : b 2 For i 1 To 3 msg msg amp quotAquot amp a amp quot Bquot amp b testa b msg msg amp vbCrLf Next i MessageBox.Showmsg End Sub 2. 设有函数说明 Public Function sysByVal a ByVal b ByVal c As Integer sys 3 a - 4 b c End Function 当主程序执行下述各语句后k的值是什么 k1 sys1 2 3 k2 sys1 2 1 - sys0 1 1 k3 sys1 sys1 2 3 2 - 1 3. 阅读下列程序写出输出结果 Sub g1ByVal x ByRef y Dim z z 2 x TextBox1.Text TextBox1.Text amp x amp quot quot amp y amp quot quot amp z TextBox1.Text TextBox1.Text amp vbCrLf y z - x End Sub Private Sub Form1_Click…… Dim x y z x 1 : y 2 : z 3 g1x y TextBox1.Text TextBox1.Text amp x amp quot quot amp y amp quot quot amp z TextBox1.Text TextBox1.Text amp vbCrLf g1x 1 z TextBox1.Text TextBox1.Text amp x amp quot quot amp y amp quot quot amp z TextBox1.Text TextBox1.Text amp vbCrLf End Sub 4 写出下列程序的运行结果 Dim a b c msg Public Sub pcByVal a ByRef d ByRef b Dim c a a 1 b b 2 c a d msg a amp quot quot amp b amp quot quot amp c amp vbCrLf End Sub Private Sub Button1_Click…… a 2 : b 3 : c 4 Call pca b c msg msg amp a amp quot quot amp b amp quot quot amp c amp vbCrLf MessageBox.Showmsg End Sub 4 数组 1 阅读下列程序写出输出结果输入10个数字分别从1——10 Dim i j A10 msg For i 1 To 4 ai InputBoxquot输入数组元素quot Next i ai InputBoxquot输入数组元素quot j i For i 10 To j 1 Step -1 ai InputBoxquot输入数组元素quot Next i For i 1 To 9 msg msg amp Ai amp quotquot Next i MessageBox.Showmsg amp Ai 2 阅读下列程序写出程序的输出结果 Dim i v ia8 msg For i 1 To 8 iai i Next i v ia8 For i 7 To 1 Step -1 iai 1 iai Next i ia1 v For i 1 To 8 msg msg amp quot quot amp iai Next i MessageBox.Showmsg 3下列程序段依次将123456789读入两维数组s试写出执行下列程序段后输出的结果。

     Dim i j s3 3 msg For i 1 To 3 For j 1 To 3 si j InputBoxi amp quot quot amp j Next j Next i For j 1 To 3 For i 3 To 1 Step -1 msg msg amp si j amp quot quot Next i Next j MessageBox.Showmsg 4读下列程序写出输出结果 Const n 4 Dim i j an n msg For j 1 To n a1 j n - j Next j For i 2 To n For j i To n ai j ai - 1 j - 1 ai - 1 j Next j Next i For i 2 To n For j 1 To i - 1 ai j aj i Next j Next i For i 1 To n For j 1 To n msg msg amp Space3 amp ai j Next j msg msg amp vbCrLf Next i MessageBox.Showmsg 5读下列程序写出输出结果 Const n 5 Dim i j k an n msg a1 1 3 : a1 2 1 : a1 3 4 : a1 4 2 : a1 5 5 For j 1 To n i 2 For k j 1 To n ai a1 k.