VB1练习题
全国计算机考试一级vb试题及答案
全国计算机考试一级vb试题及答案全国计算机考试一级VB试题及答案一、选择题1. VB中，以下哪个选项是合法的变量名？A. 2variableB. variable2C. _variableD. variable-2答案：B2. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A3. VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above答案：D4. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. While...End WhileC. Do...LoopD. All of the above答案：D5. VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Select CaseC. If...ThenD. All of the above答案：D二、填空题1. VB中，________函数用于将字符串转换为小写。
答案：LCase2. 在VB中，________关键字用于声明常量。
答案：Const3. VB中，________函数用于获取当前日期。
答案：Date4. 在VB中，________语句用于结束程序的执行。
答案：End5. VB中，________函数用于计算两个数的和。
答案：Val三、简答题1. 请简述VB中如何声明一个整型变量并赋值。
答案：在VB中，声明一个整型变量并赋值可以通过以下方式实现：Dim myVar As Integer。
然后使用赋值运算符“=”给变量赋值，例如：myVar = 10。
2. 描述VB中如何使用For循环结构。
答案：在VB中，使用For循环结构的基本语法是：For counter = start To end [Step step]。
其中，counter是循环计数器，start是循环开始的值，end是循环结束的值，step是每次循环增加的值（可选，默认为1）。
vb一级考试试题及答案
vb一级考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. LetC. ConstD. Function答案：A2. 下列哪个选项不是Visual Basic中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 递归结构答案：D3. 在Visual Basic中，以下哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. IntD. Sgn答案：A4. Visual Basic中，以下哪个事件是当窗体被双击时触发的？A. ClickB. DblClickC. MouseDownD. MouseUp答案：B5. 在Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A6. Visual Basic中，以下哪个关键字用于循环结构？A. ForB. WhileC. DoD. All of the above答案：D7. 在Visual Basic中，以下哪个方法用于打开一个文件？A. OpenB. CloseC. WriteD. Print答案：A8. Visual Basic中，以下哪个函数用于将字符串转换为数值？A. StrB. ValC. ChrD. Asc答案：B9. 在Visual Basic中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. NameD. Title答案：A10. Visual Basic中，以下哪个控件用于显示图像？A. LabelB. PictureBoxC. ImageD. Shape答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个子程序。
答案：Sub2. 如果需要在Visual Basic中创建一个数组，可以使用________关键字。
vb练习一含答案
练习题一一、选择题1、假设变量bool_flag是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（）A）bool_flag="False" B）bool_flag= .False.C）bool_flag=#False# D）bool_flag=False2、限制文本框输入的字符不超过15个，应设置文本框的（）属性。
A）maxlength B）visible C）caption D）name3、表达式Len("123程序设计ABC")的值是（）。
A）10 B）14 C）20 D）174、设有数组声明语句：Option Base 0Dim B(-1 To 1,2 To 4,2) As Integer则数组B中共有（）个元素。
A）27 B）36 C）12 D）245、清除列表框中的所有内容用（）方法。
A）Clear B）RemoveItem C）Print D）AddItem6、表达式5 Mod 3+7\2的值是（）。
A）2 B）4 C）5 D）67、设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A）“中华民国”B）“中国人民”C）“中共人民”D）“人民共和”8、下列表达式的值为2123的是（）A）Val("123asd") & 2000 B）Val("123asd") + 2000C）Str(123) & "2000" D）Str(123)+"2000"9、如下数组声明语句，（）是正确的。
A）Dim a[3,4] As Integer B）Dim a(3,4) As IntegerC）Dim a(n,n) As Integer D）Dim a(3 4) As Integer10、下列叙述不正确的是（）。
A）InputBox函数返回值为字符型B）MsgBox函数返回值为所单击按钮的键值C ）MsgBox 语句返回值为所单击按钮的键值D ）Shell 函数返回值为所执行文件的工作代码11、下列各程序段中，语法正确的是（ ）A ） If a < 10 Then a=a+10B ） If a> 10 Then a= a+1 Else a= a+ 5 End IfC ） If a <=10 Then a=a + 1ElseEnd IfD ）If a <=10 Thena=a + 1Else If a <=20 Thena=a + 10End If12、假设X 的值为5，则在执行以下语句时，其输出结果为“OK ”的Select Case 语句是（）A ）B ．D ）13、有如下程序Private Sub From_Activate()Dim aa=Array(1 ,2 ,3, 4, 5)For i=LBound(a) To UBound(a)a(i)=i*a(i)Next iSelect Case X Case 10 to 1 Print "OK" End Select SelectB ） Select Case XCase Is > 5,Is <5Print "OK"End SelectC ） Select Case X Case Is > 5,1,3 to 10 Print "OK" End Select Select Case XCase 1,3 Is > 5Print "OK"End SelectPrint i,LBound(a),UBound(a),a(i)End SubA ）4 0 4 25B ）5 0 4 25C ）不确定D ）出现下标越界的错误14、下面程序运行后，窗体Form1中输出的结果是（ ）Private Sub Form_Load( )Form1.AutoRedraw=Truex= -17.8Print Sgn(x)*Int(Abs(x))End SubA ）-17B ）17C ）-18D ）1815、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )A=″12″B=″34″C=″56″Print A ＋B ＋CEnd Sub程序运行后，单击命令按钮，输出结果是（ ）A ）″123456″B ）123456C ）102D ）显示出错信息16、下面过程语句说明，合法的是（ ）。
vb大一考试题库
vb大一考试题库Visual Basic（以下简称VB）是一种便于学习和使用的编程语言，广泛应用于各个领域。
大一学生学习VB编程时，考试题库是他们检验自己所掌握知识的重要途径。
下面将介绍一些常见的VB大一考试题库题目，供学生们进行复习和准备。
1. 请简述什么是VB编程语言？简要说明其特点和应用领域。
VB编程语言是一种由Microsoft开发的事件驱动编程语言，它结合了BASIC语言的易学易懂和Windows GUI程序设计的优点，适合用于快速开发Windows应用程序。
其特点包括易学易用、兼容性好、GUI 设计简单，被广泛应用于各类Windows应用程序的开发中。
2. 请编写一个VB程序，实现输入两个数字并计算其和、差、积、商的功能。
```vbDim num1, num2 As Doublenum1 = InputBox("请输入第一个数字：")num2 = InputBox("请输入第二个数字：")MsgBox "两个数字的和为：" & num1 + num2MsgBox "两个数字的差为：" & num1 - num2MsgBox "两个数字的积为：" & num1 * num2MsgBox "两个数字的商为：" & num1 / num2```3. 请问VB中的变量命名有什么要求？举例说明。
在VB中，变量的命名需要遵循以下规则：- 变量名必须以字母开头，可以包含字母、数字、下划线和句点。
- 变量名不区分大小写，但区分大小写是好的编程风格。
- 变量名不得与关键字或保留字相同。
例如，正确的变量命名方式包括`num1`、`total_amount`，错误的命名方式包括`1num`、`end`。
4. 请简要介绍VB中的条件语句和循环语句的使用方法。
VB考试试卷及答案一
VB考试试卷及答案一第一篇：VB考试试卷及答案一Visual Basic程序设计基础试题一（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。
【程序】Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e试题二（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。
一级vb考试试题及答案
一级vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个是VB中的保留关键字？A. IfB. ThenC. ElseD. All of the above答案：D3. 在VB中，以下哪个函数用于计算数组中元素的和？A. SumB. CountC. AverageD. Max答案：A4. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B5. 在VB中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. All of the above答案：D6. VB中的哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor答案：A7. 在VB中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. VB中的哪个函数用于将字符串转换为数字？A. StrB. ValC. CIntD. CDbl答案：B9. 在VB中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B10. VB中的哪个属性用于设置或返回一个控件的背景颜色？A. BackColorB. ForeColorC. TextColorD. BorderColor答案：A二、填空题（每题2分，共20分）1. VB中的________函数用于获取当前日期。
答案：Date2. 在VB中，________关键字用于定义一个过程。
答案：Sub3. VB中的________属性用于设置或返回一个控件的前景色。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
vb考试题库及答案大一
vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.菜单设计（10分）请设计一个如图1与图2所示的下拉菜单，各菜单的名称属性如表2所示，要求使用菜单编辑器设置各级菜单及相应热键。
图2 文件下拉菜单图3 格式下拉菜单2.编写程序实现以下功能：，单击“计算”（如图1），弹出（如图2所示）输入框，在输入框中输入一半径数（如10），则圆的面积就会在标签（label1）中显示出来（如图3）。
（10分）图1图2图3Private Sub Command1_Click()Const pi As Single = 3.14 2分Dim r As Single 1分Dim s As Double 1分r = Val(InputBox("请输入圆的半径：", "输入圆的半径提示框")) 3分s = pi * r ^ 2 2分Label2.Caption = s 1分End Sub3.编写程序实现以下功能：在文本框中输入用户名“小红”，密码框中输入“2011VBKS”，单击“确定”按钮（如图1），如果输入数据正确，则弹出信息框“欢迎参加VB考试!”（如图2），输入数据不正确，则弹出警告框“输入数据有误！请重新输入……”如图3。
(10分)图1图2 图3Private Sub Command1_Click()a=Text1.Textb= Text2.TextIf a = "小红" And b = "2011VBKS" Then 3分Y=MsgBox ("欢迎参加VB考试!" ) 2分Else 1分Y=MsgBox ("输入数据有误！请重新输入……", 1 + 48, "数据确认框：") 3分End If 1分End Sub4.编写程序实现以下功能：程序运行时，单击窗体，弹出如图1所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图3中所示结果，若为偶数如图2中显示结果。
（10分）图1图2Private Sub Form_Click()Dim x As Integer 1分x = Val(InputBox("请输入一个整数！")) 2分if x mod 2=0 then 2分Print "x=" & Str(x); " x是一个偶数！" 2 分Else 1 分Print "x=" & Str(x); " x是一个奇数！" 1 分End If 1 分End Sub5.编写程序实现以下功能：在文本框中输入一个整数，单击“确定”按钮（如图1），如果输入的数能被5整除，则弹出信息框“此数能被5整除”（如图2），否则弹出信息框“这是一个不能被5整除的整数……”如图3。
(10分)图1图2图3Private Sub Command1_Click()Dim x As Integer 1 分x = Val(Text1.Text) 1分If x Mod 5 = 0 Then 2分MsgBox "此数能被5整除！" 2分Else 1分MsgBox "这是一个不能被5整除的整数……", 1 + 48, "数据确认框：" 2分End If 1分End Sub1使用Rnd函数生成10个两位数的随机整数，并放于picture1中，单击命令按钮，找出这10个数中的最大数与最小数，并降序重新排列这10个数。
将运行结果分别置于text1、text2以及picture2中（如图1中）。
（10分）参考答案：Option Base 1Private Sub Command1_Click()Dim max As Integer '存储最大数0.25分Dim min As Integer '存储最小数0.25分Dim i As Integer '循环变量0.25分Dim j As Integer '循环变量0.25分Dim t As Integer '交换变量0.25分Dim a(10) As Integer 0.25分'*****初始化随机数（*******For i = 1 To 10 0.5分a(i) = Int(Rnd * 90 + 10) 1分Picture1.Print a(i); 0.5分Next I 0.25分'*********求最大最小值**********max = a(1) 0.25分min = a(1) 0.25分For i = 2 To 10 0.25分If max < a(i) Then max = a(i) 1分If min > a(i) Then min = a(i) 1分Next I 0.25分Text1.Text = max 0.25分Text2.Text = min 0.25分'********排序（4分）*********For i = 1 To 9 0.25分For j = i + 1 To 10 0.25分If a(i) > a(j) Then 0. 5分t = a(i): a(i) = a(j): a(j) = t 0.5分End If 0.25分Next j 0.25 Next I 0.25For i = 1 To 10 0.25 Picture2.Print a(i); 0.25分Next I 0.25End Sub2、使用Rnd函数生成10个[0~100]之间的随机整数，并在窗体加载时在Label2中显示，当单击“升序排序”后以升序排列在Label4中显示。
窗体格式如图（16分）参考程序：Dim a(1 To 10) As Integer 1分Private Sub Command1_Click()Dim i, j, t As Integer' 选择法排序7分For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j): a(j) = a(i): a(i) = tEnd IfNext jNext i‘输出排序后的数据序列2分For i = 1 To 10Label4.Caption = Label4.Caption & a(i) & " "Next iEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Next i‘输出原始数据2分For i = 1 To 10Label2.Caption = Label2.Caption & a(i) & " "Next iEnd Sub3．编程实现如图1所示的程序代码：随机生成10个100以内的整数置于picture1中，升序后的10个数放在picture2中，降序后的10个数放在picture3中。
（10分）Option Base 1 0.5分Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer 0.25分For i = 1 To 10 0.25分a(i) = Int(Rnd * 100) 0.5分Picture1.Print a(i); 0. 5分Next I 0.25分For i = 1 To 9 0.25分For j = i + 1 To 10 0.5分If a(i) > a(j) Then 0.5分t = a(i): a(i) = a(j): a(j) = t 0.5分End If 0.25分Next j 0.25分Next I 0.25分For i = 1 To 10 0.25分Picture2.Print a(i); 0. 5分Next I 0.25分For i = 1 To 9 0.25分For j = i + 1 To 10 0. 5分 If a(i) < a(j) Then 0.5分 t = a(i): a(i) = a(j): a(j) = t 0.5分 End If 0.25分Next j 0.25分Next I 0.25分For i = 1 To 10 0.25分Picture3.Print a(i); 0.25分Next i 0.25分End Sub 0.25分Private Sub Command2_Click()Picture3.Cls 0.25分Picture2.Cls 0.25分Picture1.Cls 0.25分End Sub4、编写一个能计算全班成绩的总分（置入Label5中）、平均分（置入Label6中）、最高分（置入Label7中）、最低分（置入Label8中）并能统计各分数段0—59（置入Text1中），60—84（置入Text2中），85—100（置入Text3中）人数的程序代码，人数由输入框输入，成绩由系统随机产生，下图为参考界面。
（10分）参考程序：界面设计Private Sub Command1_Click()Dim a() As Integer （0.25分）Dim ave As String （0.25分）Dim i, sum, max, min, s1, s2, s3 As Integer （0.25分）sum = 0: max = 0: min = 110 （0.25分）n = Val(InputBox("请输入班级人数：")) （0.5分）ReDim a(n) （0.5分）For i = 1 To n （0.25分）a(i) = Int(100 * Rnd + 1) （0.5分）Next （0.25分For i = 1 To n （0.25分）sum = sum + a(i) （0.5分）If a(i) < 60 Then s1 = s1 + 1 （0.25分）If a(i) >= 60 And a(i) < 85 Then s2 = s2 + 1 （0. 5分）If a(i) >= 85 Then s3 = s3 + 1 （0. 5分）If max < a(i) Then max = a(i) （0.5分）If min > a(i) Then min = a(i) （0.5分）Next i （0.25分）ave = sum / n （0.5分）Label5.Caption = sum （0.5分）Label6.Caption = ave （0.5分）Label7.Caption = max （0.5分）Label8.Caption = min （0.5分）Text1 = s1 （0.25分）Text2 = s2 （0.25分）Text3 = s3 （0.25分）End Sub。