VB练习7-2(西北大学)

4.编写程序生成一个二维数组A(5, 5)，求两条对角线元素之和Option ExplicitPrivate Sub Command1_Click()Dim a(5, 5) As IntegerDim i As IntegerDim j As IntegerDim x As IntegerDim y As IntegerFor i = 0 To 5For j = 0 To 5a(i, j) = Int(100 * Rnd) '随机产生一个0~100的整数If i = j Then x = x + a(i, j)If i + j = 5 Then y = y + a(i, j)NextNextMsgBox "两条对角线元素之和分别是" & x & "," & yEnd Sub5.编写程序将文本框Text1中的大写字母放到文本框Text2中。

Dim n As IntegerFor i = 1 To Len(Text1)n = Asc(Mid(Text1.Text, i, 1))Text2 = Text2 & IIf(n >= 65 And n <= 90, Chr(n), "")Next6.随机生成20个两位正整数存放到Text1中，找出其中的偶数并以与找出相反的顺序存放到Text2中。

Private Sub Form_Load()RandomizeDim a(20), iText1 = ""Text2 = ""For i = 1 To 20a(i) = Int(Rnd * 90 + 10)Text1 = Text1 & a(i) & " "If a(i) Mod 2 = 0 ThenText2 = " " & a(i) & Text2End IfNextEnd Sub7.编写程序将窗体上文本框Text1中的字符串中的所有大写字母找出，并按逆输出到文本框Text2中。

大学生计算机基础二vb试题及答案一. 单选题1. 下列哪个选项不是VB语言的特点？A. 良好的图形用户界面B. 强大的面向对象能力C. 多种数据类型的支持D. 快速的编译运行速度答案：D2. 在VB语言中，以下哪个关键字用于声明一个变量？A. DimB. PrivateC. PublicD. Function答案：A3. 下列哪个选项不是VB语言的常见控件？A. TextBoxB. LabelC. PictureBoxD. Gridview答案：D4. 在VB语言中，以下哪个关键字用于定义一个过程（Sub）？A. PrintB. FunctionC. SubD. Declare答案：C5. 在VB语言中，以下哪个选项用于打开一个文件对话框？A. SaveFileDialogB. OpenFileDialogC. FolderBrowserDialogD. PrintDialog答案：B二. 填空题1. VB语言中，用于获取文本框中的文本的属性是______。

答案：Text2. 在VB语言中，用于向列表框中添加项的方法是______。

答案：Items.Add3. VB语言中，用于将字符串转换为整数的函数是______。

答案：CInt4. VB语言中，用于弹出消息框的方法是______。

答案：MessageBox.Show5. VB语言中，用于循环执行一段代码的结构是______。

答案：For...Next三. 判断题判断下列语句的正误，正确的在括号内打“√”，错误的打“×”。

1. （√）在VB语言中，可以使用If语句实现条件判断。

2. （×）在VB语言中，数组的下标从1开始。

3. （√）在VB语言中，可以使用Select Case语句实现多条件判断。

4. （√）在VB语言中，可以使用Try...Catch...Finally语句实现异常处理。

5. （√）在VB语言中，可以使用Do...Loop语句实现无限循环。

全国计算机二级《VB》练习题及答案（2）12.在窗体上有若干控件，其中有一个名称为Text1的文本框。

影响Text1的Tab顺序的属性是(D)(单)A.TabStopB.EnabledC.VisibleD.TabIndex13.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)A.For i=0 To List1.ListCount-1 ...... Next iB.For i=0 T o ListCount-1 ...... Next iC.For i=1 To List1.listCount ...... Next iD.For i=1 To ListCount ...... Next i14.以下Case语句中错误的是(C)(单)A.Case 0 To 10B.Case Is>10C.Case Is>10 And Is<50D.Case 3,5,Is>1015.以下关于图片框控件的说法中，错误的是(D)(单)A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小16.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)A.VisualB.BasicC.6D.1117.以下叙述中错误的是(D)(单)A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见18.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click( )a = "12345"Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是(B)(单)A.123.45B.12345.00C.12345D.00123.4519.以下关于函数过程的叙述中，正确的是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数20.以下关于变量作用域的叙述中，正确的是(C)(单)A.用dim定义变量是静态变量B.静态变量必须在标准模块中声明C.用public定义变量是全局变量D.Static类型变量的作用域范围是它所在的窗体或模块文件21.确定一个控件在窗体上的位置的属性是(C)(单)A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)A.VisualB.BasicC.ProgramD.出错23.以下关系表达式中，其值为False的是(A)(单)A."ABC">"AbC"B."the"<>"they"C."VISUAL"=UCase("Visual")D."Integer">"Int"24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)A.0B.1C.2D.325.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click( )strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change( )Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)A.空B.abcdefC.abcD.def26.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )x = -5If x >0 Theny = x ^ 2Elsey = xEnd IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是(A)(单)A.-5B.25C.1D.-127.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X AsInteger，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1的任何地方中可以直接使用YD.在Form2中可以直接使用X和Y28.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

VB机试模拟试卷127(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。

(1)在名称为Forml的窗体上画两个文本框，其名称分别为Tcxtl和Text2，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性满足以下要求：①Text2可以显示多行文本，且有垂直和水平两个滚动条；②运行时在Textl中输入的字符都显示为“*”。

运行后的窗体如图1-166所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

(2)在名称为Forml的窗体上画一个图像框，名称为tmagcl，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件picl．bmp 装入图像框；再画两个命令按钮，名称分别为Cl、C2，标题分别为“放大”、“缩小”，如图1-167所示。

要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。

要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：第1小题【操作步骤】步骤l：新建一个“标准EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表2-94所示。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-95在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个命令按钮的Click 事件过程。

参考代码：PriVate Sub C1_Click( ) Imagel．Width=Imagel．Width+100 Imagel．Height=Imagel．Hei．ght+100 End Sub PriVate Sub C2_Click( ) Imagel．Width=Imagel．Width一100 Imagel．Height=Imagel．Hei．ght-100 End Sub 步骤3：按要求将文件保存至考生文件夹中。

大学vb考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. Variable2C. variable_2D. Variable!答案：B2. Visual Basic中，以下哪个是正确的整型常量？A. 123.45B. 0x1AC. 1.2E3D. 0.1答案：B3. 以下哪个是Visual Basic中的保留关键字？A. MyVarB. DimC. VarD. MyFunction答案：B4. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub(x As Integer)D. Function MySub(x As Integer) As Integer答案：C5. Visual Basic中，以下哪个是正确的数组声明？A. Dim MyArray(10)B. Dim MyArray(0 To 10) As IntegerC. Dim MyArray() As Integer = New Integer(10)D. Dim MyArray(10) As Integer答案：B6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"End If7. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iLoopC. While i < 10Print ii = i + 1End WhileD. Do While i < 10Print ii = i + 1Loop8. 在Visual Basic中，以下哪个是正确的函数调用？A. Call MyFunction(5)B. MyFunction 5C. MyFunction(5)D. MyFunction Call 5答案：C9. Visual Basic中，以下哪个是正确的事件处理程序？A. Sub Form_Click()End SubB. Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)End SubC. Sub Form_Click(ByVal sender As Object)End SubD. Sub Form_Click(ByVal e As EventArgs)End Sub答案：B10. 在Visual Basic中，以下哪个是正确的窗体属性？A. Me.Caption = "My Form"B. Me.Text = "My Form"C. = "My Form"D. Me.Title = "My Form"答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的正确语法是：Dim ________ As Integer。

VB机试模拟试卷7(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“WWB”，如图7-1所示；再建立一个名称为Cmd1，标题为“清除”的命令按钮。

编写适当的事件过程，要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

(2)在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为“输入”和“连接”的命令按钮。

如图7-2所示。

要求程序运行后，单击“输入”按钮，可通过输入对话框输入两个字符串，存入字符串变量a和b中(a和b定义为窗体变量)，如果单击“连接”按钮，则把两个字符串连接为一个字符串(顺序不限)并在信息框中显示出来，如图7-3所示，在程序中不得使用任何其他变量。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件；将文本框的Text属性设置为空，就可以清除文本框中显示的内容。

解题步骤：第一步：建立界面并设置控件属性。

程序中用到的控件及其属性见表7-1。

第二步：编写程序代码。

参考代码：Private Sub Cmd1_Click( ) Text1.Text=““End Sub 第三步：调试并运行程序。

第四步：按题目要求存盘。

(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

7-1Public Function sh (ByValsh = (Exp(x) - Exp(-x)) / 2 ‘在函数过程里一定要对函数名sh进行赋值，但sh后不能加（x）。

End FunctionPrivate Sub command1_Click()Dim x As Single, y As Single ‘注意实参x的数据类型一定要和形参的数据类型一致，在这里都是Single。

x = Val(Text1)y = x ^ 2 + sh(x) ‘函数的调用。

因为是函数，所以一定放在表达式中；因为是调用，所以要加（x），把实参x的值通过调用传递到函数过程里，使形参x有值。

这里实参名和形参名可以不一样，但数据类型一定要匹配；这里实参个数和形参个数一定要相同。

Print yEnd Sub7-2Private Function passed(ByVal x As Single) As String ‘注意函数名passed的数据类型是String，因为要返回“及格”等字符串。

If x >= 0 And x < 60 Thenpassed = "……" ‘在函数过程里一定要对函数名赋值。

ElseIf 条件Thenpassed = "……" ‘在函数过程里一定要对函数名赋值。

End IfEnd FunctionPrivate Sub Command1_Click()Dim x As Single, str1 As String, x1 As Stringx1 = Text1If IsNumeric(x1) Then ‘思考这里是否可以用Text1？如果用Text1，x1是否需要设置？x = Val(x1)str1 = passed(……) ‘调用Function函数passed得到返回值。

Text2 =……‘在Text2里输出结果。

ElseText2 = "数据错误"End IfEnd Sub7-3Private Sub Command1_Click()Dim a As Single, k As Integer, b As BooleanFor a = 1 To 1000b = ……‘调用Function函数过程，a是实参，b是函数名带回的返回值，是一个逻辑型的数据If b ThenPicture1.Print ……‘输出a和a*a的值k = ……‘统计个数，即k值+1End IfNext aPicture1.Print "共有" & k & "个守形数"End SubPrivate Function AutoMorpthic(a As Single) As Boolean ‘返回值是逻辑型If Val(Right(CStr(a * a), Len(CStr(a)))) = a ThenAutoMorpthic = ……‘给函数名赋值End IfEnd Function7-4Private Sub Form_Click() ‘本题采用一重循环编程，二重循环会产生死机现象。

VB 练习题与答案96第2章数据类型与表达式一、选择题1. 一个语句行内写多条语句时，每个语句之间用( )符号分隔。

A. ，B. ：C. 、D. ；2. 一句语句要在下一行继续写，用( )符号作为续行符。

A. ＋B. –C. _D. …3. 下面( )是合法的变量名。

A. X_yzB. 123abC. integerD. X-Y4. 下面( )是不合法的整数。

A. 100B. ＆Ol00C. ＆H100D. ％1005. 下面( )是合法的字符常量。

A. ABC＄B. "ABC"C. 'ABC'D. ABC6. 下面( )是合法的单精度型变量。

A. num!B. sum％C. xinte＄D. mm＃7. 下面( )是不合法的单精度常数。

A. 100！B. 100.0C. 1E+2D. 100.0D+28. 表达式16/4-2^5*8/4 MOD 5\2的值为( )。

A. 14B. 4C. 20D. 29. 数学关系3≤x＜10表示成正确的VB表达式为( )。

A. 3＜=X＜10B. 3＜＝x AND x＜10C. x＞＝3 OR x＜10D. 3＜＝x AND＜1010. “＼”、“／”、“Mod”、“*”四个算术运算符中，优先级别最低的是( )。

A. ＼B. ／C. ModD. *11. 与数学表达式ab/3cd对应的不正确V isual Basic 6.0表达式是( )。

A. a*b／(3*c*d)B. a／3*b／c／dC. a*b／3／c／dD. a*b／3*c*d12. Rnd函数不可能为下列( )值。

A. 0B. 1第二部分 练习题与答案97C. 0.1234D. 0.0005 13. Int(198. 555*100＋0.5)／100的值( )。

A. 198B. 199. 6C. 198. 56D. 200 14. 已知，A ＄＝"12345678"，则表达式V al(Left (A$,4)+Mid(A$,4,2))的值为( )。

全国计算机二级《VB》练习题及答案(2)12.在窗体上有若干控件，其中有一个名称为Text1的文本框。

影响Text1的Tab顺序的属性是(D)(单)A.TabStopB.EnabledC.VisibleD.TabIndex13.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)A.For i=0 To List1.ListCount-1 ...... Next iB.For i=0 To ListCount-1 ...... Next iC.For i=1 To List1.listCount ...... Next iD.For i=1 To ListCount ...... Next i14.以下Case语句中错误的是(C)(单)A.Case 0 To 10B.Case Is>10C.Case Is>10 And Is<50D.Case 3,5,Is>1015.以下关于图片框控件的说法中，错误的是(D)(单)A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小16.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)A.VisualB.BasicC.6D.1117.以下叙述中错误的是(D)(单)A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见18.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Clicka = "12345"Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是(B)(单)A.123.45B.12345.00C.12345D.00123.4519.以下关于函数过程的叙述中，正确的是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数20.以下关于变量作用域的叙述中，正确的是(C)(单)A.用dim定义变量是静态变量B.静态变量必须在标准模块中声明C.用public定义变量是全局变量D.Static类型变量的作用域范围是它所在的窗体或模块文件21.确定一个控件在窗体上的位置的属性是(C)(单)A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ClickText1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)A.VisualB.BasicC.Program23.以下关系表达式中，其值为False的是(A)(单)A."ABC">"AbC"B."the"<>"they"C."VISUAL"=UCase("Visual")D."Integer">"Int"24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)A.0B.1C.2D.325.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_ClickstrText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_ChangeLabel1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)A.空B.abcdefD.def26.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Clickx = -5If x >0 Theny = x ^ 2Elsey = xEnd IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是(A)(单)A.-5B.25C.1D.-127.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X AsInteger，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1的任何地方中可以直接使用YD.在Form2中可以直接使用X和Y28.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（ A ）的编程机制。

（A）事件驱动 (B) 按过程顺序执行（C）从主程序开始执行 (D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。

(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。

（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（ B ）。

（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（ A ）。

（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（ D ）。

（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（ B ）。

（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ C ）。

（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（ C ）。

（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。

（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（ A ）。

（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（ B ）。

大学vb课后试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 以下哪个选项不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. Button答案：B3. 以下哪个函数用于计算数组中元素的总和？A. SumB. CountC. AvgD. Min答案：A4. 在Visual Basic中，如何声明一个名为MyFunction的函数？A. Function MyFunction()B. Sub MyFunction()C. Dim MyFunction()D. Const MyFunction()答案：A5. 以下哪个选项是Visual Basic中用于循环的语句？A. IfB. ForC. SelectD. Case答案：B6. 在Visual Basic中，如何将文本框的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.ValueC. Dim text As String = TextBox1.ContentD. Dim text As String = TextBox1.TextContent答案：A7. 以下哪个选项不是Visual Basic的数据类型？A. IntegerB. StringC. BooleanD. Real答案：D8. 在Visual Basic中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. DimD. Const答案：B9. 以下哪个选项是Visual Basic中用于条件判断的语句？A. ForB. IfC. WhileD. Do答案：B10. 在Visual Basic中，如何声明一个名为MyClass的类？A. Class MyclassB. Dim MyclassC. Function MyclassD. Sub Myclass答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，用于声明常量的关键字是______。

vb二级考试题库带答案1. 以下哪个选项是Visual Basic（VB）中声明变量的正确方式？A. Dim a As IntegerB. Declare a As IntegerC. Var a = IntegerD. int a答案：A2. 在VB中，如何将一个字符串反转？A. StrReverse("Hello")B. Reverse("Hello")C. Mid("Hello", 1, Len("Hello"))D. Left("Hello", Len("Hello") / 2) & Right("Hello",Len("Hello") / 2)答案：A3. VB中，下列哪个函数用于计算数组中元素的总和？A. Sum()B. Total()C. Count()D. Average()答案：A4. 在VB中，如何实现一个循环，直到满足特定条件才停止？A. For Each...NextB. Do...Loop UntilC. While...WendD. For...Next答案：B5. VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. MethodD. Procedure答案：B6. 在VB中，如何声明一个名为"myArray"的一维数组，包含10个整数元素？A. Dim myArray(10) As IntegerB. Dim myArray(1 To 10) As IntegerC. Dim myArray() As Integer = New Integer(10)D. Dim myArray As Integer(10)答案：B7. VB中，下列哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Protected Sub Button1_Click()D. Friend Sub Button1_Click()答案：A8. 在VB中，如何将一个整数转换为字符串？A. Str(123)B. CStr(123)C. Convert.ToInt32("123")D. Integer.ToString(123)答案：B9. VB中，下列哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B10. 在VB中，如何声明一个名为"myFunction"的函数，该函数接收一个整数参数并返回一个整数？A. Function myFunction(ByVal x As Integer) As IntegerB. Sub myFunction(ByVal x As Integer) As IntegerC. Function myFunction(ByVal x As Integer)D. Sub myFunction(ByVal x As Integer)答案：A。

Vb考试题一、选择题〔5分一题〕1、使用Visual Basic编程,我们把工具箱在的工具称为(2、我们保存一个编写好的程序，“过程名〞是以〔〕作为扩展名的。

A、.frmB、.vbpC、.batD、.bas3、以下变量名写法正确的选项是〔〕。

A、abcB、abc123C、abc_123D、123abc4、完毕当前程序的语句是〔〕。

A、quitB、exitC、endD、sub5、要改变窗体的标题时，应当在属性窗口中改变的属性是〔〕。

A、CaptionB、NameC、TextD、Label6、VB是一种面向对象的程序设计语言，构成对象的三要素是〔〕。

A、属性、事件、方法B、控件、属性、事件C、窗体、控件、过程D、窗体、控件、事件7、在VB中表达式11\3+11 mod 3 的运算结果值是〔〕。

A、3B、4C、5D、68、语句段a=3: b=5t=a: a=b: b=t执行后，〔〕。

A、a值为3，b值为3B、a值为3，b值为5C、a值为5，b值为5D、a值为5，b值为39、语句if 3*4>=10 then a=1 else a=2 执行后，a的值为〔〕。

A、12B、10C、1D、210、语句段s=0for i=1 to 5s=s+inext i执行后，s与i的值为〔〕A、1B、5C、6D、15二、填空判断题〔4分一题〕〔〕1、End if 语句对单行if语句不需要。

〔〕2、表达式(2*3)>=5 and 12/3 <= 4 的值为false。

〔〕3、VB程序一行写不下，可以直接换行继续写。

4、假设整型变量a的值为2、b的值为3，那么以下程序段执行后整型变量c的值为______。

If a>5 thenif b<4 thenc=a-belsec=b-aEnd ifelseif b>3 then c=a*belsec=a mod bEnd if5、以下程序用来输出1到100所有奇数的与，请补充完该程序。