VB基本知识及选择、循环结构习题
vb循环 练习题
vb循环练习题VB循环练习题循环是计算机编程中非常重要的概念之一，它允许我们重复执行一段代码，以达到简化程序逻辑和提高效率的目的。
在VB（Visual Basic）编程语言中，循环也是一项基本技能。
为了帮助大家更好地掌握VB循环，下面将给出一些练习题，供大家进行实践。
1. 打印数字编写一个程序，使用循环打印出1到10的数字。
要求每个数字占一行，并在数字前面加上"Number: "前缀。
例如，输出应该是：Number: 1Number: 2...Number: 102. 计算和编写一个程序，使用循环计算1到100的所有整数的和，并将结果打印出来。
要求使用一个变量来保存累加的结果，并在循环结束后打印出结果。
3. 奇偶数判断编写一个程序，使用循环判断一个给定的整数是奇数还是偶数。
要求用户输入一个整数，然后使用循环判断并打印出结果。
例如，如果用户输入的是5，则程序应该输出"5是奇数"；如果用户输入的是8，则程序应该输出"8是偶数"。
4. 阶乘计算编写一个程序，使用循环计算一个给定的正整数的阶乘。
要求用户输入一个正整数，然后使用循环计算并打印出结果。
阶乘的定义如下：n! = n * (n-1) * (n-2) * ... * 2 * 1。
例如，如果用户输入的是5，则程序应该输出"5的阶乘是120"。
5. 九九乘法表编写一个程序，使用循环打印出九九乘法表。
要求每个乘法式占一行，并且每行的结果按照对齐方式排列。
例如，输出应该是：1 * 1 = 11 *2 = 2 2 * 2 = 4...1 * 9 = 92 * 9 = 18 ... 9 * 9 = 81通过完成以上练习题，你将能够更好地理解和掌握VB循环的使用。
循环是编程中非常常见的一种结构，掌握好循环的使用将使你的代码更加简洁高效。
此外，通过实践练习，你还能够提高自己的编程能力和逻辑思维能力。
vb基础知识试题及答案
vb基础知识试题及答案一、选择题（每题2分，共10分）1. VB中，哪个关键字用于声明变量？A. DimB. ConstC. LetD. Option Explicit答案：A2. 在VB中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A3. VB中，哪个循环结构用于重复执行代码块直到满足特定条件？A. Do LoopB. For EachC. While WendD. For Next答案：A4. 在VB中，如何表示逻辑“与”操作？A. AndB. OrC. NotD. Xor答案：A5. VB中，哪个关键字用于定义函数？A. FunctionB. SubC. PropertyD. Const答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________关键字可以声明一个数组。
答案：Dim2. VB中的________函数用于计算两个日期之间的天数差。
答案：DateDiff3. VB中，________关键字用于声明一个过程，该过程不返回值。
答案：Sub4. 使用________函数可以将数字转换为字符串。
答案：Str5. 在VB中，________关键字用于声明一个类模块。
答案：Class三、简答题（每题5分，共15分）1. 描述VB中的事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。
在VB中，开发者可以为控件编写事件处理程序，当特定的事件发生时，如按钮点击，相应的事件处理程序会被调用执行。
2. 解释VB中的类和对象的概念。
答案：在VB中，类是一种模板，定义了一组属性、方法和事件，这些可以被实例化为对象。
对象是类的实例，每个对象拥有自己的状态和行为。
通过类，可以创建具有相同属性和方法的多个对象。
3. 什么是VB中的封装？答案：封装是面向对象编程中的一个核心概念，它指的是将数据（属性）和操作这些数据的方法（过程）捆绑在一起，形成一个对象。
vb第四章选择结构和循环结构编程题
第四章编程题1.查询分数题Private Sub Form_Load()x = Val(InputBox("请输入分数", "输入", 0))Select Case xCase Is < 0Label1.Caption = "输入有误"Case Is > 100Label1.Caption = "输入有误"Case Is >= 90Label1.Caption = "优秀"Case Is >= 80Label1.Caption = "良好"Case Is >= 70Label1.Caption = "一般"Case Is >= 60Label1.Caption = "及格"Case Is < 60Label1.Caption = "不及格"End SelectEnd Sub2.求最大公约数题Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m < 0 Or n < 0 ThenMsgBox "数据错误！"EndEnd Ifp = m Mod nDo While p <> om = nn = pp = m Mod nLoopText3.Text = nEnd Sub2.1最小公倍数Private Sub Command1_Click()Dim m As Integer, n As Integer, p As Integer, t As Integerm = Val(Text1.Text)n = Val(Text2.Text)t = m * nIf m < 0 Or n < 0 ThenMsgBox "数据错误!"EndEnd IfIf m = 0 Or n = 0 ThenText3.Text = 0ElseDop = m Mod nIf p = 0 ThenExit DoEnd Ifm = nn = pLoop Until FalseText3.Text = t / nEnd IfEnd Sub3.九九乘法表Private Sub Command1_Click()Dim I As Integer, J As Integer, M As Integer, s As String For I = 1 To 9s = ""For J = 1 To IM = I * Js = s & J & "*" & I & "=" & M & " "Next JList1.AddItem sNext IEnd Sub4.求ABCD—CDC=ABC题Private Sub Command1_Click()For a = 1 To 9: For b = 0 To 9For c = 1 To 9: For d = 0 To 9x = a * 1000 + b * 100 + 10 * c + dy = c * 100 + d * 10 + cz = a * 100 + b * 10 + cIf x - y = z ThenPrint x; y; zEnd IfNextNextNextNextEnd Sub5.求前100项和，平均数题Private Sub Form_click()n = 1: s = 0Do While n <= 100s = s + nn = n + 1LoopPrint s, n - 1, s / (n - 1), s * (n - 1)End Sub6.输入10个数找出正数，负数，零的个数Private Sub Command1_Click()Dim i, t, x1, x2, x3 As IntegerFor i = 1 To 10t = Val(InputBox("请输入第" & i & "个数：", "显示", 0))If t > 0 Thenx1 = x1 + 1ElseIf t < 0 Thenx2 = x2 + 1Elsex3 = x3 + 1End IfNextPrint "正数的个数:" & x1Print "负数的个数:" & x2Print "零的个数:" & x3End Sub7.Fibonacci数列（用数组做）Private Sub Form_Load()For i = 1 To 30List1.AddItem Fib(i)NextEnd SubPrivate Function Fib(n)If n < 3 ThenFib = 1ElseFib = Fib(n - 1) + Fib(n - 2)End IfEnd FunctionPrivate Sub List1_Click()List1.AddItem = FibEnd Sub8.输入十个数打印并找出最大数，最小数Private Sub Command1_Click()Dim a(9), i, max, min As IntegerFor i = 0 To 9a(i) = Val(InputBox("请输入第" & i + 1 & "个数："))Print a(i);Nextmax = a(0)For i = 0 To 9If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)NextPrintPrintPrintPrint "最大数为：" & max; "最小数为：" & minEnd Sub9.100元换成40张等值的10,5,2,1的钱的题Private Sub Command1_Click()For x = 1 To 10For y = 1 To 20For z = 1 To 50w = 40 - x - y - zIf 10 * x + 5 * y + 2 * z + w = 100 And x * y * z * w > 0 Thenh = Format(x, "@@@@") & Format(y, "@@@@@") _& Format(z, "@@@@@") & Format(w, "@@@@@")List1.AddItem hEnd IfNext zNext yNext xEnd Sub10.找出三位数的回文数并打印，并求其个数Private Sub Command1_Click()Dim n As IntegerFor n = 101 To 999a = Int(n / 100)b = Int((n - a * 100) / 10)c = n - a * 100 - b * 10If a = c Then List1.AddItem nNextPrint List1.ListCountEnd Sub10-2回文字判断1）按定义判断先求出字符串的反序字符串，然后和原字符串比较，如果相等则是回文，否则不是回文。
VB重点复习
VB重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。
2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。
3.VB6.0集成开发环境不包括DOS界面窗口。
4.当运行程序时，系统自动执行启动窗体的Load事件过程。
5.下面关于对象的描述中，对象就是自定义结构变量是错误的。
6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。
7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。
8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。
9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。
10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。
11.要使命令按钮不可操作，需对其Enabled属性进行设置。
12.文本框没有Caption属性。
13.不论何种控件，共同具有的是Name属性。
14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。
15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。
15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。
15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。
16.保存新建的工程时，默认的路径是Windows。
17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。
18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
vb实验试题及答案
vb实验试题及答案VB实验试题及答案一、选择题1. VB中，用于定义变量的关键字是：A. DimB. SetC. ConstD. Function答案：A2. 下列哪个选项是VB中声明数组的正确方式？A. Dim arr(10)B. Dim arr[10]C. Dim arr(10) As IntegerD. Dim arr[10] As Integer答案：C二、填空题1. 在VB中，使用________关键字可以创建一个新过程。
答案：Sub2. 要将一个字符串变量的值赋给另一个字符串变量，可以使用________运算符。
答案：=三、简答题1. 请简述VB中如何实现循环结构。
答案：VB中实现循环结构主要有两种方式：`For...Next` 循环和`Do...Loop` 循环。
`For...Next` 循环适用于已知循环次数的情况，而 `Do...Loop` 循环适用于循环次数不确定的情况。
2. 描述VB中如何使用条件语句。
答案：VB中使用条件语句主要通过 `If...Then...Else` 结构实现。
首先使用 `If` 关键字检查条件，如果条件为真，则执行 `Then` 后的语句；如果条件为假，则执行 `Else` 后的语句。
四、编程题1. 编写一个VB程序，实现计算并输出1到100之间所有偶数的和。
答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMessageBox.Show("Sum of even numbers between 1 and 100 is: " & sum)```2. 编写一个VB函数，接受一个字符串参数，返回该字符串中字母'a'的个数。
答案：```vbFunction CountA(ByVal str As String) As IntegerDim count As Integer = 0For Each c As Char In strIf c = "a" Thencount = count + 1End IfNextReturn countEnd Function```。
vb试题及答案基础
vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是________。
VB循环结构及数组练习
VB循环结构及数组练习一、单选题1.执行以下程序段后，i的值为（B）For i = 1 To 10 Step 2y = y + iNext iA）10 B）11 C）12 D）252.假定有如下语句：Private Sub Command1_Click()Counter = 0For i = 1 To 4For j = 6 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，结果为（B）A）11 B）12 C）16 D）203. 假定有如下语句：Private Sub Command1_Click()For i = 1 To 4If i = 1 Then x = iIf i <= 4 Then x = x +1Print x;End Sub程序运行后，结果为A）1 2 3 4 B）2 3 4 5 C）2 3 4 4 D）3 4 5 64.哪个程序段不能分别正确显示1!、2!、3!、4!的值（B）A）For i = 1 To 4n = 1For j = 1 To in = n * jNext jPrint nNext iB）For i = 1 To 4For j = 1 To in = 1n = n * jNext jPrint nNext iC）n = 1For j = 1 To 4n = n * jPrint nNext jD）n = 1: j = 1Do While j <= 4n = n * jPrint nj = j + 1Loop5. 编写如下的事件过程：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序运行后，在窗体上显示的内容是（A）A）BB B）A C）B D）AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD6. 编写如下的事件过程：Private Sub Command1_Click()Dim x,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str (x)Text2.Text = Str (n)End Sub运行程序后，在2个文本框中显示的值分别是（B）A）20和1 B）27和3 C）195和3 D）600和47. 编写如下的事件过程：Private Sub Command1_Click()Dim i,n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str (n)End Sub运行后，文本框中显示的值是（B）A）2 B）3 C）4 D）58. 编写如下的事件过程：Private Sub Command1_Click()c = 1234c1 = Trim (Str(c))For i = 1 To 4Print ________NextEnd Sub运行程序后，窗体上显示如下11 21 2 31 2 3 4则应该在________处填写的表达式是（B）A）Right (c1,n) B）Left (c1,i) C）Mid (c1,n,1) D）Mid (c1,n,n)9. 编写如下的事件过程：Private Sub Command1_Click()n = Val (Text1.text)For i = 2 To nFor j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是：（C）A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整数的数10. 编写如下的事件过程：For i = 1 To 3For j = 5 to 1 Step -1Print i*jNext j,i则语句Print i*j 的执行次数是（A）A）15 B）16 C）17 D）1811.以下程序段输出结果为（B）x = 1y = 4Do Until y > 4x = x * yy = y + 1LoopPrint xA）1 B）4 C）8 D）2012.执行下面的程序段后，x的值为（A）x = 5For i = 1 To 20 Step 2x = x + i\5Next iA）21 B）22 C）23 D）2413. 编写如下的事件过程：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程序运行后，输出结果是（B）A）7 B）15 C）157 D）538 14.有如下的程序段：For i = 1 To 3For j = 1 To ia = a + 1Next jNext i执行上面程序后，a的值为（C）A）3 B）9 C）6 D）2115.有如下的程序段：n = 0For i = 1 To 3For j = 1 To iFor k = j To 3n = n + 1Next kNext jNext i执行上面程序段后，n的值为：（B）A）3 B）14 C）9 D）2116.阅读程序Private Sub Form_Click()x = 50For i = 1 To 4y = InputBox (“请输入1个整数”)y = Val (y)If y Mod 5 = 0 Thena = a + yx = yElsea = a + xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（A）A）100 B）50 C）120 D）701.如有以下程序代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后，在窗体上输出的内容为（C）A）89 B）99 C）23 D）772.下面语句定义的数组元素个数中（C）Dim arr(3 To 5, -2 To 2)A）20 B）12 C）15 D）243. 下面语句定义的数组元素个数中（D）Dim a(-3 To 4, 3 To 6)A）18 B）28 C）21 D）324. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10)For i = 1 To 10arr1(i) = 3 * iarr2(i) = arr1(i) * 3Next iText1.Text = Str(arr2(i / 2 - 0.1))End Sub程序运行后，在文本框显示的是（B）A）36 B）45 C）54 D）635. 如有以下程序代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 1 To 4s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行程序后，在窗体上输出的内容为（D）A）1234 B）12 C）34 D）43216. 如有以下程序代码：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub运行程序后，在窗体上输出的内容为（A）A）12 B）13 C）14 D）157.假设通过复制、粘贴建立了一个命令按扭数组Command1，则以下说法错误的是（D）A）数组中每个命令按扭的名称（Name属性）均为Command1B）数组中每个命令按扭的大小都一样C）数组中每个命令按扭可以使用同一个时间过程D）用名称Command1可以访问数组中每个命令按扭8. 如有以下程序代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub运行程序后，在窗体上输出的内容为（A）A）11 3 B）3 11 C）13 3 D）3 139.如有以下程序代码：Private Sub Command1_Click()Dim arr(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3If j = i Or j = 3 - i + 1 Thenarr(i, j) = 1Elsearr(i, j) = 0End IfNext jNext iPrint arr(1, 1) + arr(2, 2) + arr(3, 3)End Sub运行程序后，在窗体上输出的内容为（D）A）0 B）1 C）2 D）310.如有以下程序代码：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2)For i = 1 To 3For j = 1 To 2a(i, j) = i * jNext jNext iReDim Preserve a(3, 4)For i = 3 To 4a(3, i) = i + 5Next iPrint a(3, 2); a(3, 4)End Sub运行程序后，在窗体上输出的内容为（B）A）0 0 B）6 9 C）7 12 D）8 1311.在窗体上话3个单选按扭，组成1个名为chkOption的控件数组。
VB-选择题及答案
一、分支结构（一）选择1、下列关于块if语句的叙述中，正确的是。
A．Then后面的语句组不能省略B．Else后面的语句不能省略C．Then和Else后面的语句组都不能省略D．Then和Else后面的语句组都可以省略2、下列Case语句中表示错误的是。
A．Case 0 To 10 B．Case Is>10C．Case Is>10 And Is<50D．Case 3,5,8,123、下列Case语句中表示错误的是。
A．Case 2,4,6,8,10 B．Case 10 To 1C．Case Is<10 D．Case "a" To "z"4、下列关于块If…Then…ElseIf语句结构的叙述中，正确的是。
A．可以有多个elseif语句B．可以有多个Else语句C．整个结构必须以一个End If语句结束D．Elseif语句、Else语句都是可选的5、关于下列所示的选择结构中，叙述正确的是。
If <条件1> Then[<语句组1>]ElseIf <条件2>[<语句组2>]ElseIf <条件3>[<语句组3>]End IfA．如果条件设置不当，则所有分支都可能被执行到B．如果条件设置不当，则所有分支都可能不被执行到C．无论条件怎样设置，都至少有一个分支被执行到D．无论条件怎样设置，都有且只有一个分支被执行到6、关于下列所示的选择结构中，叙述正确的是。
If <条件1> Then[<语句组1>]Else[<语句组2>]End IfA．如果条件设置不当，则所有分支都可能被执行到B．如果条件设置不当，则所有分支都可能不被执行到C．无论条件怎样设置，所有分支都会被执行到D．无论条件怎样设置，都有且只有一个分支被执行到7、下列程序段用于求x的绝对值，并存储在y中，正确的是。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345（3） 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π（4）把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e（5）写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.4) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"（6）设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5（7）写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")二、 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
A. LtrimB. RtrimC. TrimD. Mid（2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。
A. (0,1)B. (0,9)C. (1,10)D. (1,9)（3）数学式子sin25º写成Visual Basic 表达式是 。
A.Sin25B. Sin(25)C. Sin(25º)D. Sin(25*3.14/180)（4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。
A. 14B. 4C. 20D. 2（5）数学关系式103<≤x 表示成正确的VB 表达式为 。
A. 3<= x <10B. x >= 3 And x<10C. x>=3 Or x<10D. 3<= x And <10（6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是。
A. 123456B. 123445C. 8D. 6（7）表达式Len("123程序设计ABC")的值是。
A. 10B. 14C. 20D. 17（8）下面正确的赋值语句是。
A. x+y=30B. y=3π*r*rC. y=x+30D. 3y=x+1（9）为了给x，y，z三个变量赋初值1，正确的赋值语句是。
A. x=1: y=1: z=1B. x=1, y=1, z=1C. x=y=z=1D. x,y,z=1（10）赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g中的值是。
A. “12334”B. 123C. 12334D. 157（11）表达式Not（a+b=c-d）是_______。
A. 逻辑表达式B. 字符表达式C. 算术表达式D. 关系表达式（12）如果x是一个正实数，对x的第3位小数四舍五入的表达式是。
A. 0.01 * Int(x + 0.005)B. 0.01 * Int(100 * (x + 0.005))C. 0.01 * Int(100 * (x + 0.05))D. 0.01 * Int(x + 0.05)（13）下列哪组语句可以将变量a，b的值互换。
A. a=b: b=aB. a=a+b: b=a-b: a=a-bC. a=c: c=b: b=aD. a=(a+b)/2: b=(a-b)/2（14）下列四个字符串进行比较，最小的是。
A. “9977”B. “B123”C. “Basic”D. “DATA”（15）下列逻辑表达式中，其值为True的是。
A. “b” > “ABC”B. “THAT” > “THE”C. 9 > “H”D. “A” > “a”（16）表达式a+b=c是。
A. 赋值表达式B. 字符表达式C. 算术表达式D. 关系表达式（17）在下列表达式中，非法的是。
A. a=b+cB. a>b+cC. a≠b>cD. a<b+c（18）语句Print Format (“HELLO”, “<”) 的输出结果是。
A. HELLOB. helloC. HeD. he（19）MsgBox函数的返回值的类型是。
A. 整数B. 字符串C. 逻辑值D. 日期（20）用语句Dim A(-3 to 5) As Long定义的数组元素个数是。
A. 7B. 8C. 9D.10三、判断题(1) VB6.0中&H12是8进制的数值常数。
(2) 设A="123",B=123,则A+B的结果为246，A-B的结果为0。
(3) 已知A$="87654321"，则表达式Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。
(4) Rnd函数产生的是（0,1)之间不包括0、1的随机小数。
(5) 表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。
(6) Len("等级考试")和LenB("等级考试")的结果相同。
(7) VB6.0中字符串常量是用双引号或单引号括起来的字符串。
(8) Print InStr("Visual Basic", "I")的结果为0。
(9) 固定数组中的数组元素个数一旦定义好后，在程序运行过程中不再会发生变化，并且数组中数组元素的值也不会变化。
(10)数组元素的下标可以是常数、变量或表达式。
(11)在For…Next循环中，其中Step步长可以是正数,也可以是负数。
(12)在Do…Loop［While｜Until］循环中，While关键字或Until关键字必须选择其中之一。
(13)在For...Next循环中，Exit For子句是可选项，它可以放置在循环体语句中的任何位置。
(14)动态数组在定义时已被分配存储空间。
(15) 在VB6.0中，Option Base语句的参数只能是0或1。
四、程序阅读题（2）执行下面程序段后，变量ｘ的值为。
Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i \ 5Next i（3）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub（4）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As Integerx = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1LoopPrint "x="; x; "n="; nEnd Sub（5）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub（6）以下程序的循环次数是。
For j = 8 To 35 Step 3Print j;Next j（7）执行下面程序输入４后，程序输出的结果是。
Private Sub Form_Click()x = InputBox(x)If x ^ 2 < 15 Then y = 1 / xIf x ^ 2 > 15 Then y = x ^ 2 + 1Print yEnd Sub（8）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub（9）执行下面程序后，输出的结果是。
Private Sub Form_Click()a = 100Dos = s + aa = a + 1Loop Until a > 100Print aEnd Sub(10) 执行下面程序后，输出的结果是。
Private Sub Form_Click()a = "ABCD"b = "efgh"c = LCase(a)d = UCase(b)Print c + dEnd Sub（11）执行下面程序后，输出的结果是。
Private Sub Form_Click()x = 2: y = 4: z = 6x = y: y = z: z = xPrint x; y; zEnd Sub（12）执行下面程序后，输出的结果是。
Private Sub Form_Click()Dim count As Integercount = 0While count < 20count = count + 1WendPrint countEnd Sub（13）执行下面程序后，输出的结果是。