1、符号连接字符串 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中没有选中的项，会发生什么？
2、 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.
3、 保存在窗体里的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. 对于窗体,下面_
4、属性在程序运行时其属性设置起作用。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. 10
5、0 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. 过程
6、结构、输入和输出结构、转向结构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均为赋值语句
7、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-3c. For x=1 To 10Re：Next xIf I=10 Then GoTo red. For x=3 To 10 Step 3 Next y35. 下列循环能正常结束循
8、环的是_。a. I=5Do I=I+1 Loop Until Id. I=6 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
9、=strSelectiond. Combo.strSelection39. 执行了下面的程序后，列表框中的数据项有_。Sub Form_Click（） For I=1 to 6 List1.AddItem I For I=1 to 3 List1.RemoveItem 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
10、） | *.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、Ke
11、yUpb. KeyDown、KeyUp、KeyPressc. KeyDown、KeyPress、KeyUpd. 没有规律43. 下面关于顺序文件的描述正确的是_。a. 每条记录的长度必须相同b. 可通过编程对文件中的某条记录方便的修改c. 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示d. 文件的组织结构复杂44. 下面关于随机文件的描述正确的是_。b. 一个文件中记录号不必唯一c. 可通过编程对文件中的某条记录方便的修改d. 文件的组织结构比顺序文件复杂45. 结构类型定义语句应出现在_。a. 窗体模块b. 标准模块c. 窗体模块和标准模块都可以d. 窗体模块和标准模块均
12、不可以二、阅读程序（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,
13、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）4如果输入的值为175，则程序执行后输出的结果是？ 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,
14、1）MessageBox.Show（x）（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
15、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 &MessageBox.Show（msg + i= + Str（i）（2） Dim i%, msg$ If i = 3 Then GoTo m1m1: Next i MessageBox.Show（msg + （3）Dim i%, j%, msg$ For j = 0 To 4 If i = 3 Then GoTo b
16、1 i * 5 + j & Next j Str（i） & vbCrLfb1:（4）（5） If i = j Then GoTo b1（6）B1:（7） Dim i%, msg$ For i = 1 To 26 Chr（Asc（A） + i - 1） & If i Mod 7 = 0 Then msg = msg &3指出下列程序的运行结果 Dim i%, j%, msg$ Dim size%, seed% size = 5 : seed = 2 For i = 1 To size For j = 1 To i seed & seed = seed + 1 If seed = 10 Then
17、seed = 14指出下列程序的运行结果 Dim n%, m% m = 14 n = 63 Do While m n Do While m m = m - n Loop Do While n m n = n - mMessageBox.Show（m）5写出下面的程序执行后在文本框里输出的结果。Private Sub Form1_Click（） 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
18、 + 1） For j = 1 To n - 2 * b*（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 yA= a & B= b & X= x & Y= yPrivate Sub Button1_Click a = 2 : b = 2 For i = 1 To 3 b test（a, b）2. 设有函数说明Public Function sys（ByVal
19、 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 y & z y = z - x End Sub Private Sub Form1_Click Dim x%, y%, z% x = 1 : y = 2 : z = 3 g1（x, y） g1（x + 1, z） 4 写出下列程序的运行结果 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 & c &a = 2 : b = 3 : c = 4 Call pc（a
