VB上机考试 习题以及答案
(完整word版)VB本科期末上机考试练习题答案
1、单击窗体在窗体上输出10个两位随机整数，并求出其平均数。
运行效果如下图所示：Private Sub Form_Click()Dim a(10) As Integer, i As Integer, s As IntegerFor i = 1 To 10a(i) = Int(Rnd * (99 - 10 + 1)) + 10s = s + a(i)Print a(i)Next iPrint "平均数为" & s / 10End Sub2、随机产生20个200～400之间的随机整数，按每行5个输出到窗体上，并求出其中的最大值。
Private Sub Form_Click()Dim i As Integer, a(20) As Integer, max As IntegerPrint "原始数据为："max = 0For i = 1 To 20a(i) = Int(Rnd * (400 - 200 + 1)) + 200Print a(i);If i Mod 5 = 0 Then PrintIf max < a(i) Then max = a(i)Next iPrint "最大值为：" & maxEnd Sub3、产生20个两位的随机整数，输出这20个数（以每行5个的形式输出这20个数，其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。
运行效果如下图所示：Private Sub Form_Click()Dim a(20) As Integer, i As Integer, max As Integer, min As Integer, s As IntegerPrint "原数组为："max = 0min = 100Form1.ForeColor = vbBlackFor i = 1 To 20a(i) = Int(Rnd * (99 - 10 + 1)) + 10If a(i) Mod 2 = 0 ThenForm1.ForeColor = vbRedElseForm1.ForeColor = vbBlackEnd IfPrint a(i); 先变色，再输出If i Mod 5 = 0 Then Prints = s + a(i)If max < a(i) Then max = a(i)If min > a(i) Then min = a(i)Next iPrintForm1.ForeColor = vbBlackPrint "max=" & maxPrint "min=" & minPrint "aver=" & s / 20End Sub4、产生10个随机两位正整数，放入一数组中，并按从小到大的顺序排列。
vb考试试题和答案
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
vb上机试题及答案
vb上机试题及答案# VB上机试题及答案一、选择题1. 在Visual Basic中，以下哪个不是合法的变量名？- A. 123abc- B. myVariable- C. _myVariable- D. 2myVariable答案： A2. Visual Basic中的哪种数据类型用于存储日期和时间？ - A. Integer- B. Date- C. String- D. Variant答案： B3. 以下哪个是Visual Basic中的流程控制语句？- A. Sub- B. If- C. Dim- D. End答案： B4. 在Visual Basic中，以下哪个不是数组的声明方式？- A. Dim myArray(1 To 10)- B. Dim myArray(0) As Integer- C. Dim myArray As Integer- D. Dim myArray(1) As Integer答案： C5. Visual Basic中，以下哪个是正确的循环结构？- A. For Each- B. While- C. Do While- D. All of the above答案： D二、填空题1. 在Visual Basic中，使用______关键字可以定义一个过程。
- 答案：Sub 或 Function2. 要声明一个名为`myString`的字符串变量，可以使用______语句。
- 答案：Dim myString As String3. 在Visual Basic中，如果要在循环中提前退出，可以使用______语句。
- 答案：Exit For 或 Exit Do4. 要将一个数字转换为字符串，可以使用______函数。
- 答案：CStr 或 Str5. 在Visual Basic中，使用______语句可以定义一个常量。
- 答案：Const三、程序设计题编写一个Visual Basic程序，该程序可以计算并显示一个正整数的阶乘。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
vb考试题及答案
vb考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案：C3. 以下哪个是VB中的流程控制语句？A. IfB. ForC. NextD. All of the above答案：D4. 在VB中，如何声明一个整型变量？A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案：A5. VB中的“Print”方法用于做什么？A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案：B6. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. DateD. Object答案：D7. VB中的“Select Case”语句用于什么？A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案：B8. 在VB中，如何将一个变量的值赋给另一个变量？A. x = yB. x := yC. x = y = zD. x = (y)答案：A9. VB中的“Do While”循环在什么条件下执行？A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案：A10. 在VB中，以下哪个不是集合（Collection）的方法？A. AddB. RemoveC. CountD. Find答案：D二、多选题（每题3分，共15分）1. VB中，哪些是合法的变量名？A. _nameB. 2nameC. name$D. name答案：A, D2. 在VB中，哪些是合法的常量声明？A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案：A, C, D3. VB中，哪些是合法的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案：A, C, D4. 在VB中，哪些是合法的函数调用？A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案：A, B, C, D5. VB中，哪些是合法的循环控制语句？A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案：A, B, C, D三、判断题（每题1分，共10分）1. VB中，所有变量都必须在使用前声明。
vb考试试题及答案
vb考试试题及答案VB考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中的哪个函数可以用来获取当前系统时间？A. Now()B. Date()C. Time()D. All of the above答案：D3. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. If...ThenB. Select...CaseC. Both A and BD. None of the above答案：C5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的事件处理程序？A. Sub Form_Load()B. Sub Form_Click()C. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用语句_________。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。
窗体的标题为"按钮窗口"。
运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。
表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。
程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. SubD. Function答案：A2. 下列哪个控件常用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A3. VB中，用于执行循环的关键字是？A. ForB. IfC. WhileD. Select答案：A4. 在VB中，如何将一个变量的值赋给另一个变量？A. a = bB. a = b = cC. a = b + cD. a = c / b答案：A5. VB中，以下哪个函数用于计算字符串的长度？A. LenB. UCaseC. LCaseD. Mid答案：A6. 以下哪个事件用于处理按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A7. 在VB中，以下哪个属性用于设置控件的背景颜色？A. BackColorB. ForeColorC. BorderColorD. TextColor答案：A8. VB中，用于声明一个过程的关键字是？A. FunctionB. SubC. DimD. Const答案：B9. VB中，用于声明一个函数的关键字是？A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是______。
答案：Public2. 在VB中，用于创建一个新窗体的关键字是______。
答案：Form3. VB中，用于结束当前过程的关键字是______。
答案：Exit Sub 或 Exit Function4. VB中，用于声明一个常量的关键字是______。
vb上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
vb上机考试题库及答案86套
vb上机考试题库及答案86套一、单项选择题（每题2分，共10题，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. SqrD. Abs答案：A3. 在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Name答案：A4. VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A5. 在VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A6. VB中，以下哪个关键字用于循环遍历数组？A. ForB. DoC. WhileD. Loop答案：A7. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A8. VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. MultiLineC. PasswordCharD. TextAlign答案：A9. 在VB中，以下哪个事件用于响应键盘按键？A. KeyDownB. KeyUpC. KeyPressD. MouseClick答案：C10. VB中，以下哪个控件用于选择日期？A. ComboBoxB. ListBoxC. MonthViewD. DateTimePicker答案：D二、填空题（每题2分，共5题，共10分）1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________函数可以返回一个随机数。
答案：Rnd3. 在VB中，使用________属性可以设置控件的背景颜色。
答案：BackColor4. VB中，使用________事件可以响应文本框内容的改变。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
全国计算机二级VB上机题库(题+答案)
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。
只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。
程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。
（2）菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。
（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
（5）设计完成之后，按规定方式存盘。
2．【解题步骤】（1）建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。
参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。
VB上机考试 习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
vb考试题及答案
vb考试题及答案VB考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个是正确的整型变量声明？A. Dim a% As IntegerB. Dim a As Integer%C. Dim a As IntegerD. Dim a Integer答案：C2. VB中的Print方法用于在窗体上显示输出，以下哪个是正确的输出语句？A. Print "Hello, World!"B. Print "Hello, World!", 1C. Print 1, "Hello, World!"D. Print "Hello, World!"; 1答案：A3. 在VB中，以下哪个是正确的布尔型变量声明？A. Dim b BooleanB. Dim b As BooleanC. Dim b Boolean AsD. Dim b As Boolean As答案：B4. VB中，以下哪个函数用于获取当前日期？A. Now()B. Date()C. Time()D. Today()答案：B5. 在VB中，以下哪个是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr As Integer(5)D. Dim arr As Integer(5 To 10)答案：A6. VB中，以下哪个是正确的字符串连接操作？A. str1 & str2B. str1 + str2C. str1 || str2D. str1.Concat(str2)答案：A7. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If答案：A8. VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 DoC. For i = 1 To 10 LoopD. For i = 1 To 10 Next答案：A9. 在VB中，以下哪个是正确的函数声明？A. Function MyFunction() As IntegerB. Function MyFunction As IntegerC. Function MyFunction() IntegerD. Function MyFunction Integer答案：A10. VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click As IntegerC. Private Sub Form_Click() IntegerD. Private Sub Form_Click() As Integer答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是______。
vb试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
VB上机试题及答案
上机操作练习题1．某数组有20个元素，其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。
在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer, j as integer, t as integerPrivate Sub Form_Load()ShowPrint "原始数组是："RandomizeFor i = 1 To 20a(i) = Int(Rnd * 90) + 10Print a(i);If i Mod 10 = 0 Then PrintNext iPrintPrint "现在数组是："For i = 1 To 10j = 21 - it = a(i): a(i) = a(j): a(j) = tNext iFor i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除Private Sub Form_Load()ShowReDim a(9) As Integerm = 1Print "原来数组为："For i = 0 To 9a(i) = InputBox("请输入第" & m & "个数：")Print a(i);m = m + 1Next iPrintn = InputBox("查找的数是：")i = 0: flag = FalseDoIf a(i) = n Thenj = i: flag = TrueFor k = j To UBound(a) - 1a(k) = a(k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound(a))If flag = False ThenMsgBox n & "不在该数组中"ElsePrint "删除" & n & "后的数组是:"For i = 0 To UBound(a)Print a(i);Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
vb考试题及答案详解
vb考试题及答案详解一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个关键字用于声明一个过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C3. 如果变量x的值是5，那么表达式x > 3 And x < 10的结果是？A. TrueB. FalseC. 5D. 3答案：A4. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给变量str？A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案：A5. 下列哪个控件用于在窗体上显示图像？A. PictureBoxB. ImageBoxC. LabelD. Button答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 如何在Visual Basic中声明一个整型变量？A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案：A8. 在Visual Basic中，哪个事件用于响应鼠标单击？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A9. 下列哪个不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D10. 在Visual Basic中，如何使用If语句进行条件判断？A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案：C11. Visual Basic中哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C12. 如何在Visual Basic中声明一个数组？A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案：A13. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案：A14. 如何在Visual Basic中声明一个类？A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案：A15. 在Visual Basic中，哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrint#Next iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrint!Avg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End Sub！Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)*Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmpNext jNext iFor i = 1 To 25Print a(i);\Next iEnd Sub5、利用随机函数产生50个[1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
Dim a(1 To 6)Private Sub Form_Click()For i = 1 To 6a(i) = 0Next iFor j = 1 To 50{x = Int(Rnd * (6 - 1 + 1) + 1)a(x) = a(x) + 1Next jFor i = 1 To 6Print i & "出现了" & a(i); "次"Next iEnd Sub】6、在文本框中输入一些英语单词，统计空格的个数。
Dim n%, x As String, s% Private Sub Form_Click()n = Lenx =For i = 1 To nIf Mid(x, i, 1) = " " Then s = s + 1Next iPrint "共出现了" & s & "个空格"End Sub/7、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 1 To 2 * n - 1 Step 2p = 1For j = 1 To ip = p * jNext j】s = s + pNext iPrint sEnd Sub8、编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。
S=2!+4!+6!+……+(2*n)!Private Sub Form_Click()n = Val(InputBox("请输入一个不大于10的整数"))s = 0For i = 2 To 2 * n Step 2<p = 1For j = 1 To ip = p * jNext js = s + pNext iPrint sEnd Sub9、用For …Next语句编程，双击窗体后，在屏幕上显示如图：\Private Sub Form_Click()a = 0For i = 1 To 3Print Tab(8 - 2 * i - 1);For j = 1 To 2 * i - 1a = a + 1Print Str(a);Next jPrintNext i|End Sub10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick()For i = 1 To 3Print Tab(11 - 3 * i);For j = 2 To 10 Step 2Print j;Next jPrintNext i（End Sub11、用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()For i = 1 To 3Print Tab(10 - 3 * i);For j = 1 To 5Print x;-Next jPrintNext iEnd Sub12、从文本框输入一个正整数，判断该数是否为素数。
Dim a As LongPrivate Sub Form_Click()a = ValIf a = 2 ThenTag = TrueElseIf a Mod 2 = 0 Then@Tag = FalseElseTag = TrueFor i = 3 To Sqr(a) Step 2If a Mod i = 0 Then Tag = False: Exit ForNext iEnd IfIf Tag = True ThenPrint a; "是素数"Else@Print a; "不是素数"End IfEnd Sub13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
Option ExplicitDim i%, max%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()Randomize~For i = 1 To 10a(i) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i)Next imax = a(1): loc = 1 '变量赋值，假设a(1)为最大数If a(i) > max Then max = a(i): loc = iNext iPrint "最大的数是"; maxPrint "在数组中是第"; loc; "个数",End Sub14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。
Option ExplicitDim i%, min%, loc%Dim a(1 To 10) As IntegerPrivate Sub Form_Click()RandomizeFor i = 1 To 10a(i) = Int(Rnd * (9999 - 1000 + 1) + 1000)Print a(i)，Next imin = 9999For i = 1 To 10If a(i) < min Then min = a(i): loc = iNext iPrint "最小的数是"; minPrint "在数组中是第"; loc; "个数"End Sub15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then = vbRed…End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then = vbGreenEnd Sub16、编制一个时钟程序，如下图：Option ExplicitPrivate Sub Form_Load()|= vbWhite= 1= 2= True= 1000End SubPrivate Sub Timer1_Timer()= TimeEnd Sub：17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
Option ExplicitDim i%Dim a(1 To 10) As SinglePrivate Sub Form_Click()For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iPrintFor i = 10 To 1 Step -1|Print a(i);Next iEnd Sub18、计算圆面积的程序。
程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
Option ExplicitDim r%, a As SingleConst pi As Single =Private Sub Form_Click()《r = Val(InputBox("请输入圆半径" & vbCrLf & "（1-9）：", "输入", 5))a = pi * r ^ 2Print "半径为"; r; "的圆面积为"; aEnd Sub19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。
Private Sub Form_Load()= 1000End SubPrivate Sub Timer1_Timer()!Select Case TrueCase= TimeCase= Format(Time, "HH:MM:SS AM/PM")End SelectEnd Sub20、设计一个程序，用户界面如图所示。