当前位置：文档之家 › VB期末考试上机题编程答案

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

  • 格式：doc
  • 大小：42.50 KB
  • 文档页数：18

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. 新建一个工程，编写求某一自然数因子和的程序。

要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。

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

如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击"求和"按钮，则在文本框中显示计算得到的因子和；3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框；4、单击“退出”按钮，结束程序运行；5、在程序中应包含一个用于计算自然数因子和的函数过程YinZi(n)。

解；Private Sub Command1_Click()Dim n As Integern = Val(Text1.Text)Call yinzi(n)Text2.Text = 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.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub3. 新建一个工程，编写一个程序，判断随机生成的10个三位正整数是否是降序数。

所谓降序数是指百位数大于十位数且十位数大于个位数的数。

将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在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)List1.AddItem a(i)If jx(a(i)) Then List2.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub command3_click()EndEnd Sub4. 新建一个工程，统计一个二进制数中0的个数和1的个数。

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

如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、第一个文本框用于输入一个二进制数，单击“统计”按纽，在另外两个文本框中分别显示0 和1的个数；3、单击“清除”按纽，将三个文本框内容清除，且光标落在第一个文本框；4、单击“退出”按纽，则结束程序运行；5、程序中应包含一个过程，用于统计字符串中0和1的个数。

解；Private Sub Command1_Click()Dim s As Strings = Text1.TextDim 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 iText2.Text = "0的个数有" & Val(a) & "个"Text3.Text = "1的个数有" & Val(b) & "个"End SubPrivate Sub command2_click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub command3_click()EndEnd Sub5. 新建一个工程，编写一个程序，找出随机生成的30个三位正整数中的升序数。

所谓升序数是指百位数小于十位数且十位数小于个位数的数。

将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在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 List1.AddItem a(i, j)Text1.Text = Text1.Text & a(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()List1.ClearText1.Text = ""End SubPrivate Function jx(n As Integer) As IntegerDim 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 Command3_Click()EndEnd Sub6. 新建一个工程，编写一个程序，求两个正整数的最小公倍数。

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

如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、从两个文本框中输入两个正整数，单击"求解"按钮，在第三个文本框中显示求得的这两个数的最小公倍数；3、单击“清除”按钮，则将三个文本框清空，并将焦点设置在第一个文本框；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于求两个正整数的最小公倍数。

合集下载

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)含答案

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

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期末考试编程试题及答案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程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。