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)含答案
（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输入的新数插入到数组中，插入后数组仍有序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB期末考试上机题编程答案1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。
所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为和，保存在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 i: a = a + 1Next i= aEnd SubPrivate Sub Command2_Click()= ““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.新建一个工程，编写求某一自然数因子和的程序。
要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。
将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！详尽要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击“求和“按钮，则在文本框中显示计算得到的因子和；3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框；4、单击“退出”按钮，结束程序运行；5、在程序中应包含一个用于计算自然数因子和的函数过程YinZi(n)。
解；Private Sub Command1_Click()Dim n As Integern = ValCall yinzi(n)= yinzi(n)End SubPrivate Function yinzi(n As Integer) As IntegerDim i As IntegerFor i = 1 To n / 2If n Mod i = 0 Then yinzi = yinzi + iNext iEnd FunctionPrivate Sub Command2_Click()= ““= ““Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub3.新建一个工程，编写一个程序，判断随机生成的10个三位正整数是否是降序数。
所谓降序数是指百位数大于十位数且十位数大于个位数的数。
将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！详尽要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击“执行“按钮，随机生成10个三位正整数，显示在左边的列表框中，将判断结果参照样图的格式显示在右边的列表框中；3、单击“清除”按钮，则将两个列表框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个名为jx的函数过程，用于判断一个正整数是否为降序数。
解；Private Function jx(n As Integer) As BooleanDim i As IntegerDim a As Integer, b As IntegerFor i = 2 To Len(Str(n))a = Val(Mid(n, i - 1, 1))b = Val(Mid(n, i, 1))If a <= b Then Exit ForNext iIf i > Len(Str(n)) - 1 Then jx = TrueEnd FunctionPrivate Sub command1_click()Dim a(1 To 10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 1000 + Int(Rnd * 9000)a(i)If jx(a(i)) Then a(i)Next iEnd SubPrivate Sub Command2_Click()End SubPrivate Sub command3_click()EndEnd Sub4.新建一个工程，统计一个二进制数中0的个数和1的个数。
将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！详尽要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、第一个文本框用于输入一个二进制数，单击“统计”按纽，在另外两个文本框中分别显示0和1的个数；3、单击“清除”按纽，将三个文本框内容清除，且光标落在第一个文本框；4、单击“退出”按纽，则结束程序运行；5、程序中应包含一个过程，用于统计字符串中0和1的个数。
解；Private Sub Command1_Click()Dim s As Strings =Dim a As Integer, b As IntegerCall fun(s)End SubPrivate Sub fun(s As String)Dim i As Integer, a As Integer, b As IntegerFor i = 1 To Len(s)If Mid(s, i, 1) = 0 Thena = a + 1Else: b = b + 1End IfNext i= “0的个数有“ & Val(a) & “个“= “1的个数有“ & Val(b) & “个“End SubPrivate Sub command2_click()= ““= ““= ““End SubPrivate Sub command3_click()EndEnd Sub5.新建一个工程，编写一个程序，找出随机生成的30个三位正整数中的升序数。
所谓升序数是指百位数小于十位数且十位数小于个位数的数。
将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！详尽要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击“执行“按钮，随机生成30个三位正整数，按6个数一行的格式显示在多行文本框中，再找出其中的升序数输出到列表框；3、单击“清除”按钮，则将文本框和列表框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个名为jx的函数过程，用于判断一个正整数是否为升序数。
解：Private Sub Command1_Click()Dim a(1 To 6, 1 To 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 6For j = 1 To 5a(i, j) = 10 + Int(Rnd * 20)If jx(a(i, j)) = True Then a(i, j)= & a(i, j) & “ “Next j= & vbCrLfNext iEnd SubPrivate Sub Command2_Click()= ““End SubPrivate Function jx(n As Integer) As Integer Dim i As IntegerDim a As Integer, b As Integer For i = 2 To Len(Str(n))a = Val(Mid(n, i - 1, 1))b = Val(Mid(n, i, 1))If a >= b Then Exit ForNext iIf i > Len(Str(n)) - 1 Then jx = True End FunctionPrivate Sub Command3_Click()EndEnd Sub6.新建一个工程，编写一个程序，求两个正整数的最小公倍数。
将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！详尽要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、从两个文本框中输入两个正整数，单击“求解“按钮，在第三个文本框中显示求得的这两个数的最小公倍数；3、单击“清除”按钮，则将三个文本框清空，并将焦点设置在第一个文本框；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于求两个正整数的最小公倍数。
解；Private Sub Command1_Click()Dim a, b As Integera = Valb = ValCall gcd(a, b)= gcd(a, b)End SubPrivate Sub Command2_Click()= ““= ““= ““End SubPrivate Sub Command3_Click()EndEnd SubPrivate Function gcd(ByVal n As Integer, ByVal m As Integer)Dim r As IntegerDim s As Integers = m * nDo While n <> 0r = m Mod nm = nn = rLoopgcd = s / mEnd Function7.新建一个工程，编写程序找出所有小于1000的完数。
一个数如果恰好等于它的因子之和，这个数称为完数。
一个数的因子是指除了该数本身以外能被其整除的数。