VB期末考试上机题编程答案

合集下载

vb期末考试和答案

vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？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"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。

Visual Basic程序设计期末复习试题(A)含答案

8.在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r

vb期末考试试题及详细答案

vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。

vb期末考试编程试题及答案

vb期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。

答案：类是对象的蓝图，它定义了对象的结构和行为。

对象是类的实例，是类的具体实现。

一个类可以创建多个对象，每个对象具有自己的状态和行为。

2. 描述如何使用VB中的事件。

答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。

事件通常与事件处理器（也称为事件处理程序）一起使用。

事件处理器是响应事件的代码块。

要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。

3. 解释VB中的继承和多态性。

答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。

这使得代码重用成为可能。

多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。

在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。

三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。

《Visual BASIC程序设计》期末考试编程题复习及答案

第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。

“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。

“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。

2.设计一个留言薄。

新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。

要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。

单击“清除”按钮则清除两个文本框中的内容。

“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。

3.设计一个程序，程序界面如图2-7所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。

vb期末考试试题和答案

vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。

vb基础期末考试题库及答案

vb基础期末考试题库及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的数据类型？A. IntegerB. intC. StringD. str答案：A、C2. 下列哪个选项不是VB的控件？A. TextBoxB. ButtonC. LabelD. ComboBox答案：B3. VB中，用于声明一个变量的关键字是：A. DimB. DeclareC. FunctionD. Sub答案：A4. 在VB中，以下哪个是正确的函数用于将字符串转换为整数？A. StrToIntB. CIntC. ValD. Convert.ToInt32答案：B5. Visual Basic中，哪个属性用于设置文本框的文本？A. TextB. CaptionC. ValueD. Label答案：A6. 下列哪个是VB中用于循环的语句？A. IfB. ForC. WhileD. Select答案：B、C7. VB中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B8. 在VB中，以下哪个是正确的事件处理程序？A. OnClickB. OnClickC. ClickD. OnClick答案：A、C9. VB中，下列哪个选项用于声明一个常量？A. ConstB. DimC. StaticD. Public答案：A10. 在VB中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. StructureD. Interface答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________关键字来结束一个程序。

答案：End2. VB中，________关键字用于声明一个数组。

答案：Dim3. 使用________函数可以将一个数字转换为字符串。

答案：Str4. 在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期末考试上机题编程答案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 IntegerDim s 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上机考试新版题库及解析【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期末考试题及答案计算机VB期末考试题及答案一、选择题（每题2分，共20分）1. VB中的变量声明关键字是：A. DimB. DeclareC. VarD. Let答案：A2. 下列哪个不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 模块结构答案：D3. VB中的数组声明方式是：A. Dim arr(10) As IntegerB. Dim arr = New Integer(10)C. Dim arr = Array(10)D. Dim arr = New Integer[10]答案：A4. 在VB中，以下哪个是正确的函数调用方式？A. Call Print("Hello World")B. Print("Hello World")C. Call Print "Hello World"D. Print "Hello World"答案：B5. 下列哪个是VB中的事件？A. SubB. FunctionC. EventD. Property答案：C...二、填空题（每空2分，共20分）1. 在VB中，使用________关键字声明常量。

答案：Const2. 一个VB程序的入口点是________过程。

答案：Sub Main3. 在VB中，使用________关键字定义类。

答案：Class4. VB中的________属性用于设置控件的可见性。

答案：Visible5. 在VB中，使用________方法可以清空文本框中的内容。

答案：Clear...三、简答题（每题10分，共20分）1. 简述VB中的类和对象的区别。

答案：类是一个模板，定义了对象的结构和行为，但本身不包含数据。

对象是根据类创建的具体实例，包含数据和行为。

2. 解释VB中的继承概念。

答案：继承是面向对象编程中的一个特性，允许一个类（子类）继承另一个类（父类）的属性和方法，而无需重新编写代码。

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期末考试题及配套答案

第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。

（√）2、Print_Text是一个不合法的变量名。

（×）3、窗体的AutoRedraw属性实现了屏幕图像的重建。

（√）4、设置字体大小应使用Font属性（×）5、Sub过程可以实现嵌套调用（√）6、IIF函数中的三个参数都不能省略。

（√）7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。

（√）8、当终值小于初值时，步长为负数。

（√）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。

（√）10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用(√)二、单项选择题1．Print Format（123，”####”）执行之后的结果为【答案】BA）＃123 B）123 C）123＃D）＃＃＃＃2．下面可以表示注释语句开头的为【答案】CA）Re B）R C）Rem D）dim3．下列选项中窗体载入事件为【答案】AA）Load事件B）Click事件C）DblClick事件D）Unload事件4．Timer控件可以使用下列哪种事件【答案】BA）Click事件B）Timer事件C）Dblclick事件D）Change事件5．在InputBox函数中哪一个参数是必须的【答案】AA）Prompt B）Buttons C）Title D）Context6．以下叙述中错误的是：【答案】CA）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程C）Sub过程可以嵌套调用Sub过程D）事件过程可以像通用过程一样由用户定义过程名7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。

【答案】CA）文件B）视图C）工程D）工具8．在块结构条件语句If-Then / Endif中【答案】B(A) 必须至少有一个Elseif语句(B ) 可以有任意多个ElseIf-Then语句(C) 如果没有Else语句，运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式9．以下Case语句中错误的是【答案】A(A) Case 10 To 1 (B) Case Is>10(C)Case Is>10 , Is<50 (D) Case 3,5,Is>1010．对Do Until…Loop循环，正确的是(【答案】B)。

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上机考试习题以及答案

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期末考试试题及答案百度文库一、单项选择题（每题2分，共20分）1. VB中，哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A2. 下列哪个选项不是VB的数据类型？A. IntegerB. StringC. BooleanD. Array答案：D3. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. 在VB中，如何表示“不等于”？A. =B. ==C. <>D. !=答案：C5. VB中，哪个关键字用于循环结构？A. ForB. NextC. ToD. Loop答案：A6. VB中，哪个函数用于将字符串转换为大写？A. StrConvB. LCaseC. UCaseD. Trim答案：C7. VB中，哪个语句用于退出子程序？A. Exit SubB. End SubC. ReturnD. Exit Function答案：A8. VB中，哪个关键字用于声明函数？A. FunctionB. SubC. DimD. Const答案：A9. VB中，哪个关键字用于声明常量？A. DimB. ConstC. PrivateD. Public答案：B10. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D二、填空题（每题3分，共15分）1. 在VB中，使用________关键字可以定义一个类。

答案：Class2. VB中，________函数用于获取当前时间。

答案：Time3. VB中，________关键字用于定义一个接口。

答案：Interface4. VB中，________关键字用于定义一个事件。

答案：Event5. VB中，________关键字用于定义一个属性。

答案：Property三、简答题（每题5分，共20分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。

vb操作题期末考试题及答案

vb操作题期末考试题及答案一、选择题（每题2分，共10分）1. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B2. VB中，以下哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. NowD. Format答案：A3. 在VB中，以下哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. VB中，以下哪个事件用于响应鼠标点击按钮的动作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A5. 在VB中，以下哪个属性用于设置文本框（TextBox）的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________关键字可以定义一个变量。

答案：Dim2. VB中的________函数可以返回当前日期。

答案：Date3. 要使VB中的Label控件显示多行文本，需要设置其________属性为True。

答案：WordWrap4. VB中，使用________事件可以检测到文本框（TextBox）内容的变化。

答案：TextChanged5. 在VB中，使用________函数可以获取当前时间。

答案：Time三、简答题（每题5分，共20分）1. 简述VB中如何使用If...Then...Else语句进行条件判断。

答案：在VB中，可以使用If...Then...Else语句进行条件判断。

首先使用If关键字后跟条件表达式，如果条件为真，则执行Then后面的代码块；如果条件为假，则执行Else后面的代码块。

2. 描述VB中如何创建一个数组并为其赋值。

答案：在VB中，可以使用Dim关键字创建数组，并使用括号指定数组的维度。

VB期末考试上机题编程答案

VB期末考试上机题编程答案1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。

所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。

将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。

解：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 IntegerDim s 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期末考试试题及答案6

vb期末考试试题及答案6试题一：VB编程基础题目：编写一个VB程序，实现用户输入一个整数，程序输出该整数的平方值。

答案：```vbPrivate Sub Command1_Click()Dim num As Integernum = InputBox("请输入一个整数：")If IsNumeric(num) ThenMsgBox num * numElseMsgBox "输入错误，请输入一个整数！"End IfEnd Sub```试题二：VB循环结构题目：使用VB编写一个程序，输出1到100之间的所有奇数。

答案：```vbPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To 100 Step 2Print i;If i Mod 10 = 0 Then PrintNext iEnd Sub```试题三：VB条件语句题目：编写一个VB程序，根据用户输入的分数，判断并输出成绩等级。

答案：```vbPrivate Sub Command3_Click()Dim score As Integerscore = InputBox("请输入你的分数：", "成绩输入")Select Case scoreCase Is >= 90MsgBox "优秀"Case Is >= 80MsgBox "良好"Case Is >= 70MsgBox "中等"Case Is >= 60MsgBox "及格"Case ElseMsgBox "不及格"End SelectEnd Sub```试题四：VB数组应用题目：创建一个VB程序，实现数组的输入、排序和输出。

答案：```vbPrivate Sub Command4_Click()Dim arr(1 To 5) As IntegerDim i As Integer' 输入数组元素For i = 1 To 5arr(i) = InputBox("请输入第" & i & "个元素：")Next i' 冒泡排序For i = 1 To 4For j = i + 1 To 5If arr(i) > arr(j) ThenDim temp As Integertemp = arr(i)arr(i) = arr(j)arr(j) = tempEnd IfNext jNext i' 输出排序后的数组For i = 1 To 5Print arr(i);If i Mod 2 = 0 Then PrintNext iEnd Sub```试题五：VB过程题目：编写一个VB程序，定义一个过程，用于计算两个数的和，并输出结果。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VB期末考试上机题编程答案1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。

所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。