VB二十道常见编程(期末操作题)
VB编程题(附答案)汇总
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint "sum="; sumEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim i%, sum%For i = 1 To 100If i mod 2=0 thensum = sum + iend ifNext iPrint "sum="; sumEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Sub command1_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
Private Sub Command2_Click()Clsa = Val(InputBox("接收三个数:"))Print a;Max = aFor i = 1 To 2a = Val(InputBox("接收三个数:"))Print a;If a > Max Then Max = aNextPrintPrint "三数中最大者是:"; MaxEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
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中，声明一个整型变量的关键字是______。
vb试题及答案期末
vb试题及答案期末一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Mid答案：A3. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. BooleanD. All of the above答案：D4. VB中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B5. VB中，哪个函数用于将字符串转换为小写？A. LCaseB. UCaseC. StrConvD. Trim答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. Do WhileC. For NextD. All of the above答案：D7. VB中，哪个关键字用于创建一个数组？A. DimB. ReDimC. EraseD. Option Base答案：A8. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Timer答案：B9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For RandomD. All of the above答案：D10. VB中，哪个关键字用于退出一个循环？A. ExitB. BreakC. ContinueD. Return答案：A二、填空题（每题3分，共30分）1. VB中，声明一个整型变量并赋值为100的语句是________。
答案：Dim myVar As Integer = 1002. 要将一个变量的值增加10，可以使用________运算符。
答案：+=3. 在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期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假定有以下程序段, 则执行结束后k的值是：（ A ）For i =1 To 3k = i+2Next iA． 5 B．4 C． 3 D．62. 以下控件中可以作为容器控件的是（ B ）A．Image图像框控件 B．PictureBox图片框控件C．TextBox文本框控件 D．ListBox列表框控件3.关于Image控件和PictureBox控件的说明，其中错误的是（ B ）A．Image控件和PictureBox控件都有Picture属性B．Image控件和PictureBox控件都支持Print方法C．Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中D．Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为( D )A．5 B．500 C．10 D．5000 5.能显示窗体的方法是（ B ）。
A．Visible B．Show C．New D．Open6.MsgBox函数中有4个参数，其中必须写明的参数是（ C ）A．指定显示按钮的个数 B．对话框的标题 C. 提示信息 D. 所有参数都是可选的7.你若在代码窗口中编写：msgbox(“AAAA”,vbokonly,”BBBB”)语句后，所产生的信息框的标题是（ C ）A．AAAA B．空 C．BBBB D．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（D ）方法。
A．GotFocus B．LostFocus C．KeyPress D．SetFocus9.为了把焦点移到某个指定的控件，所使用的方法是（ A ）A．SetFoeus B．Visible C．Refresh D．GetFocus10.语句if 3*4>=10 thena=1elsea=2end if执行后，a的值为（ D ）。
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程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
vb期末测试题及答案
vb期末测试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个是合法的变量名？A. 2variableB. Variable2C. Variable-2D. Variable 2答案：B2. 在VB中，以下哪个是正确的字符串连接运算符？A. +B. &&C. &D. ||答案：C3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足某个条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. StaticD. Public答案：B6. 在VB中，以下哪个是正确的数据类型用于存储日期？A. DateB. DateTimeC. StringD. Integer答案：B7. VB中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A8. 在VB中，以下哪个是正确的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(10) As IntegerD. Dim arr As Integer(10)答案：C9. VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. When...Then...ElseC. If...Then...End IfD. If...Then...Else...End答案：C10. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Load()B. Public Sub Form_Load()C. Private Function Form_Load()D. Public Function Form_Load()答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是________。
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程序20道考试题
a(i) = Int(Rnd * 71 + 30)
Next i
m = 1
mina = a(1)
For i = 2 To 10
If a(i) < a(1) Then
mina = a(i)
m = i
End If
Next i
For i = 1 To 10
m = Val(x)
Tag = True
For i = 2 To m - 1
If (m Mod i) = 0 Then Tag = False
Next i
If Tag Then sushu = x
End Function
Private Sub Command1_Click()
Dim i%, k%
End Sub
9、随机产生10个[30,100]内的整数，求最小值及所对应的下标。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i%, min
a%, m%
End Sub
Private Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
Dim a As Integer
a = m Mod n
Do Until a = 0
m = n: n = a: a = m Mod n
Dim a%(4, 4)
Picture1.Cls
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd * 11 + 10)
20道VB操作题代码
1 求随机数最值、均值、和的问题Option ExplicitOption Base 1Dim i%, a(10) As Integer, s%, min%, max%Private Sub Command1_Click()Randomizemin = 100For i = 1 To 10a(i) = Rnd * 90 + 10s = s + a(i): Text1 = Text1 & a(i): Text1 = Text1 & vbCrLfIf a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd SubPrivate Sub Command2_Click()Text2 = maxEnd SubPrivate Sub Command3_Click()Text3 = minEnd SubPrivate Sub Command4_Click()Text4 = s / 10End SubPrivate Sub Command5_Click()Text5 = sEnd Sub2 求水仙花数Private Sub Form_click()Dim i As IntegerFor i = 100 To 999If (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i Next iEnd Sub3 百元买百鸡问题Option ExplicitDim a!, b!, c!, i%, j%, k%Private Sub Form_click()a = InputBox("公鸡的单价")b = InputBox("母鸡的单价")c = InputBox("小鸡的单价")For i = 0 To 100 / aFor j = 0 To 100 / bk = 100 - i - jIf a * i + b * j + c * k = 100 Then Print i; j; k Next j, iEnd Sub4 求1000以内所有完数Private Sub Form_click()Dim s As Integer, i As Integer, j As IntegerFor i = 2 To 1000s = 0For j = 1 To i / 2If i Mod j = 0 Then s = s + jNext jIf i = s Then Print iNext iEnd Sub5 求各位数字之和Option ExplicitDim i%, a%, s%Private Sub Form_click()s = 0a = InputBox("请输入随机数")For i = 1 To Len(CStr(a))s = s + Mid(CStr(a), i, 1)Next iMsgBox a & " 的数字和为:" & sEnd Sub6 求最小公倍数Option ExplicitDim a%, b%, i%Private Sub Form_click()a = InputBox("请输入第一个数")b = InputBox("请输入第二个数")If a > b Then i = a: a = b: b = iFor i = a To 1 Step -1If a Mod i = 0 And b Mod i = 0 Then Exit For Next iMsgBox "最小公倍数为" & a * b / iEnd Sub7 求逆序数Option ExplicitDim a&, b&, i%Private Sub Form_click()a = InputBox("请输入随机数"):b = 0For i = 1 To Len(CStr(a))b = b & Mid(CStr(a), Len(CStr(a)) + 1 - i, 1)Next iMsgBox a & "的逆序数为:" & bEnd Sub8 级数有限项求和问题Option ExplicitDim s#, a!, i%Private Sub Form_click()s = 0: i = 2: a = 1 / 2Dos = s + ai = i + 2a = a / iLoop Until a < 0.000001Print sEnd Sub9 求质因子问题Option ExplicitDim a%, b%, s$, i%Private Sub Command1_Click()a = Text1i = 2DoIf a Mod i = 0 Then s = s & " " & i: a = a / i: i = i - 1i = i + 1Loop Until a = 1Text2 = sEnd Sub10 字符统计Option ExplicitDim i%, a(26) As Integer, x$Private Sub Command1_Click()x = Text1x = UCase(x)For i = 1 To Len(x)a(Asc(Mid(x, i, 1)) - 64) = a(Asc(Mid(x, i, 1)) - 64) + 1Next iFor i = 1 To 26If a(i) <> 0 Then Picture1.Print Chr(i + 64) & "的个数为:" & a(i) Next iEnd Sub11 判定素数过程Option ExplicitDim a As Integer, i As Integer, x As IntegerPrivate Sub Form_click()a = InputBox("请输入数字")If prime(a) ThenMsgBox a & "是素数"ElseMsgBox a & "不是素数"End IfEnd SubPrivate Function prime(x As Integer) As BooleanFor i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x Then prime = TrueEnd Function12 求最大公约数Option ExplicitDim a As Integer, b As Integer, i As Integer, m As Integer, n As Integer, t As Integer Private Sub Form_click()a = InputBox("请输入第一个数")b = InputBox("请输入第二个数")MsgBox a & "和" & b & "的最大公约数是" & zdgys(a, b)End SubPrivate Function zdgys(ByV al m As Integer, ByV al n As Integer) As IntegerDoIf m < n Then t = m: m = n: n = tm = m - nLoop Until m Mod n = 0zdgys = nEnd Function13 冒泡法排序Option ExplicitOption Base 1Dim a() As Integer, i As Integer, j As Integer, m As Integer, n As Integer, t As Integer Private Sub Form_click()n = InputBox("请输入数组的项数")ReDim a(n)RandomizeFor m = 1 To na(m) = Int(Rnd * 90) + 10Print a(m)Next mCall maopao(a())PrintFor m = 1 To nPrint a(m)Next mEnd SubPrivate Sub maopao(a() As Integer)For i = LBound(a) To UBound(a) - 1For j = LBound(a) To UBound(a) - iIf a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext j, iEnd Sub14 顺序查找过程Option Base 1Option ExplicitDim a() As Integer, i As Integer, j As Integer, m As Integer, n As Integer, x As Integer, t As Integer Private Sub Form_click()n = InputBox("请输入数组的项数")x = InputBox("请输入需要查找的数字")ReDim a(n)For i = 1 To na(i) = Int(Rnd * 90) + 10Print a(i)Next iPrintCall search(a(), x)End SubPrivate Sub search(a() As Integer, x As Integer)t = 0For i = 1 To nIf a(i) = x Then Print "第" & i & "个数为" & x: t = 1Next iIf t = 0 Then Print "找不到数字" & xEnd Sub15 判断回文数Option ExplicitDim a As String, x As Long, i As IntegerPrivate Sub Form_click()x = InputBox("请输入数字串")If huiwen(x) ThenMsgBox x & "是回文数"ElseMsgBox x & "不是回文数"End IfEnd SubPrivate Function huiwen(ByV al x As Long) As Booleana = CStr(x)For i = 1 To (Len(a)) \ 2If Mid(a, i, 1) <> Mid(a, Len(a) + 1 - i, 1) Then Exit For Next iIf i = (Len(a)) \ 2 + 1 Then huiwen = TrueEnd Function16 递归函数求阶乘Option ExplicitDim x As Long, a As Integer, n As IntegerPrivate Sub Form_click()n = InputBox("请输入数字")MsgBox n & "的阶乘为" & jc(n)End SubPrivate Function jc(ByV al n As Integer) As LongIf n = 0 Or n = 1 Thenjc = 1Elsejc = jc(n - 1) * nEnd IfEnd Function17 递归函数求斐波那契数列Option ExplicitDim a() As Integer, n As Integer, x As Integer, i As Integer Private Sub Form_click()n = InputBox("请输入显示的项数")For i = 1 To nPrint fi(i);Next iEnd SubPrivate Function fi(ByV al n As Integer) As IntegerIf n = 1 Or n = 2 Thenfi = 1Elsefi = fi(n - 1) + fi(n - 2)End IfEnd Function18 矩阵靠边元素之和Option ExplicitOption Base 1Dim a() As Integer, m As Integer, n As Integer, i As Integer, j As Integer Private Sub Form_click()Call shuruCall shengchengCall shuchuPrint "靠边元素之和为" & bs(a())End SubSub shuru()m = InputBox("请输入矩阵行数")n = InputBox("请输入矩阵列数")ReDim a(m, n)End SubSub shengcheng()For i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To mFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubFunction bs(a() As Integer) As Integerbs = 0For i = 1 To m Step m - 1For j = 2 To n - 1bs = bs + a(i, j)Next j, iFor j = 1 To n Step n - 119 矩阵不靠边元素之和Option ExplicitOption Base 1Dim a() As Integer, m As Integer, n As Integer, i As Integer, j As Integer Private Sub Form_click()Call shengchengCall shuchuPrint "不靠边元素之和为" & cs(a())End SubSub shuru()m = InputBox("请输入矩阵行数")n = InputBox("请输入矩阵列数")ReDim a(m, n)End SubSub shengcheng()For i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To mFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubFunction cs(a() As Integer) As Integercs = 0For i = 2 To m - 1For j = 2 To n - 1cs = cs + a(i, j)Next j, iEnd Function20 矩阵转置Option ExplicitOption Base 1Dim a() As Integer, n As Integer, i As Integer, j As Integer, t As Integer Private Sub Form_click()Call shuruCall shengchengCall shuchuCall rearrangeCall shuchuEnd Subn = InputBox("请输入矩阵行列数") ReDim a(n, n)End SubSub shengcheng()For i = 1 To nFor j = 1 To na(i, j) = Int(Rnd * 9) + 1Next j, iEnd SubSub shuchu()For i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubSub rearrange()PrintFor i = 1 To nFor j = 1 To it = a(i, j): a(i, j) = a(j, i): a(j, i) = t Next j, iEnd Sub。
参考答案_VB期末考编程题.docx
关于2014-2015-2学期VB期末考试的说明时间：6. 30形式：笔试内容：♦第1 ~8章课后习题与实验及第6〜8章的例题为主■单选题（除第3章外，重点6~8章）■判断题（除第3章外，重点6~8章）■程序填空题（第5、6章的程序填空题）■编程题（第6~8章的例题及课后实验）•重点看：例6-11X例6-12、例6-13、实验6-8、例7-2、例7-3、实验8-4、实验8-6成绩比例：平时20%+期中10%+实验报告10%+期末60%考试要求：请提前10分钟到，带两证：学生证、一卡通或身份证。
编程题题库及代码（要求看懂）（仅供参考,有些在属性窗口设置的属性未注明，有些写在Form_Load 中的设置也可以在属性窗口设置。
）1、新建一个工程，设计一个用来控制文本框中信息格式的程序。
具体要求如下：（1）窗体中有以下控件：一个文本框、三个框架、二个复选框、六个单选钮。
（2）完成以下功能：单击框架1中的复选框可以改变文本框的字型；单击框架2中的单选钮可以改变文本框的字体；单击框架3中的单选钮可以改变文本的字体颜色。
Private Sub Check1_Click() ，单击复选框1设置文本框字体是否加粗If Checkl .Value = 1 ThenTextl.FontBold = TrueElseTextl.FontBold = FalseEnd SubPrivate Sub Check2_Click() ，单击复选框1设置文本框字体是否斜体If Check2.Value = 1 ThenTextl.Fontltalic = TrueElseTextl.Fontltalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()啤击复选框1设置文本框字体是否加下划线If Check3.Value = 1 ThenTextl.FontUnderline = TrueElseTextl.FontUnderline = FalseEnd IfEnd SubPrivate Sub Option 1_Click() Textl. ForeColor = vbRed '红色'RGB(255, 0, 0)End SubPrivate Sub Option2_Click()Textl.ForeColor = vbGreen '绿色'RGB(0, 255, 0)End SubPrivate Sub Option3_Click() Textl.ForeColor = vbBlue '蓝色'RGB(0, 0, 255)End SubPrivate Sub Option4_Click()Textl.FontName = "楷体_gb2312”End SubPrivate Sub Option5_Click()Textl. FontName ="黑体”End SubPrivate Sub Option6_Click()Textl.FontName = ”宋体”End Sub2、编程，单击“确定"按钮, 将所有信息在标签中显示出来。
VB操作题库完整版
第01套 基本操作题★★（1）在名称为Forml 的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
（2）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为"操作"，名称为M1，此菜单下含有两个菜单项，名称分别为Copy 和Clear ，标题分别为"复制"、"清除"，请编写适当的事件过程，使得在程序运行时，单击"复制"选项菜单，则把Text1中的内容复制到Text2中，单击"清除"选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
第01套 简单应用题★★（1）在考生文件夹下有一个工程文件sjt3.vbp ，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再添加一个名称为Text1的文本框。
窗体文件中已经给出了Op1的Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"，如图所示。
vb期末测试题及答案
vb期末测试题及答案一、选择题1. 下列哪个是VB的关键字？A. FunctionB. PrintC. OutputD. Process答案：A. Function2. VB中用于循环执行一段代码的语句是？A. If...ThenB. While...LoopC. For...NextD. Select...Case答案：C. For...Next3. VB中用于声明一个变量的关键字是？A. SetB. DimC. LetD. New答案：B. Dim4. 下列哪个不是VB中的数据类型？A. IntegerB. StringC. FloatD. DoubleFloat答案：D. DoubleFloat5. VB中的数组索引是从几开始的？A. 0B. 1C. -1D. 2答案：A. 0二、判断题1. VB是一种面向过程的编程语言。
答案：错误2. VB可以用于开发桌面应用程序。
答案：正确3. VB中的If语句只能进行简单的条件判断。
答案：错误4. VB中的控件可以通过拖拽方式添加到窗体上。
答案：正确5. VB中的事件处理程序可以在代码编辑器中直接编写。
答案：正确三、简答题1. 请简要介绍VB的历史及应用领域。
答案：VB（Visual Basic）是一种基于BASIC语言的高级编程语言，由微软公司开发。
VB于1991年发布，随后成为流行的Windows平台应用程序开发工具之一。
VB的应用领域主要包括开发桌面应用程序、数据库应用程序以及快速原型开发等。
2. 请简述VB中的函数和子过程的区别。
答案：VB中的函数和子过程都是一段用于完成特定任务的代码，但二者在使用和返回值方面有所不同。
函数可以接受参数并返回一个值，可以在程序中的任何地方调用并使用其返回值。
而子过程可以接受参数但不返回值，只会执行一系列的操作。
3. 请解释VB中的控件和容器的概念，并举例说明。
答案：在VB中，控件是指用于与用户进行交互的界面元素，如按钮、文本框、标签等。
vb的操作题（有答案）
vb的操作题（有答案）第一篇：vb的操作题(有答案)1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。
程序刚运行时，会生成一个有10个元素的整型数组。
若选中“查找最大值”（或“查找最小值”）单选按钮，再单击“查找”按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。
请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。
最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10 If Option1.Value = True Then If a(i)x Thenx = a(i)End If ElseIf a(i)< y Then y = a(i)End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。
画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。
将窗体的标题设为“图形控件”。
单击列表框中的某一项，则将所选的值作为形状控件的填充参数。
例如，选择3，则形状控件中被竖线填充。
如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。
List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为T ext1；再画二个命令按钮，名称分别为C1、C2，标题分别为“隐藏”、“显示”（如图所示）。
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程序设计》期末考试编程题复习.doc
第2章1.新建工程，在窗体上创建两个命令按钮Command 1 Command2, 一个标签Label 1,界面如图2・5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label 1.ForeColor = vbRedLabel 1 .Caption = ”颜色已经改变“2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label 1 .FontName = M黑体“图2-5程序运行界面最后将工程文件、窗体文件分别以lx2・2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2・6所示,。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text 1.Text“清除”按钮代码：Textl.Text = ,,nText2.Text Hl!图2-6程序界而最后将工程文件、窗体文件分别以lx2-4.vbp> lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮吋，在文本框中显示“欢迎使用V B!”；当单击“清除”按钮吋，清除文本框内的文本；当单击“退出”按钮吋，结束程序运行。
“显示”按钮代码：Text 1.Text = ”欢迎使用VB!”“清除”按钮代码：Textl.Text 二”““退出”按钮代码：End图2-7程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp. Ix2-5.frm为文件名保存在D:\EX文件夹下。
第3章4.设计一个程序，在文本框屮输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。
vb期末试题及答案
vb期末试题及答案# VB期末试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于定义类？- A. Class- B. Sub- C. Function- D. Dim答案：A2. VB中，哪个函数用于获取当前日期？- A. Now()- B. Date()- C. Today()- D. GetDate()答案：B3. 下列哪个控件不是Visual Basic的内置控件？- A. TextBox- B. Label- C. Button- D. ScrollBar答案：D4. 在VB中，以下哪个属性用于设置文本框的只读状态？ - A. ReadOnly- B. Enabled- C. Visible- D. BackColor答案：A5. VB中，以下哪个事件是当表单被加载时触发的？ - A. Click- B. Load- C. Change- D. DblClick答案：B6. 以下哪个语句用于在VB中结束程序？- A. End- B. Exit- C. Stop- D. Quit答案：A7. 在VB中，以下哪个属性用于设置控件的可见性？ - A. Visible- B. Enabled- C. Caption- D. Text答案：A8. VB中，哪个函数用于将字符串转换为数字？- A. Val()- B. Str()- C. CInt()- D. CDbl()答案：A9. 在VB中，以下哪个关键字用于定义过程？- A. Function- B. Sub- C. Class- D. Property答案：B10. VB中，以下哪个事件是当按钮被点击时触发的？- A. Click- B. Load- C. Change- D. DblClick答案：A二、填空题（每题2分，共10分）1. 在VB中，使用 __________ 语句可以创建数组。
答案：Dim2. VB中，使用 __________ 方法可以清除文本框中的内容。
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程序，定义一个过程，用于计算两个数的和，并输出结果。
VB期末考试编程练习
1、编程求1+2+3+…+n，n从键盘输入2、编程求1^2+2^2+3^2+…+n^2，n从键盘输入3、编程求2^0+2^1+2^2+…+2^635、编程求1*2+2*3+3*4+…+n*(n+1)，n从键盘输入6、编写程序，计算并输出下面级数前n项(n=30)的部分和。
1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))7、编写程序，计算下面级数前n项中(n=50)奇数项的和，并输出该级数最后两项之差的绝对值。
1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)8、编写程序，计算并输出下面级数前n项(n=80)的部分和。
1-1/2+1/3-1/4+1/5+……＋1/n上述例子都可按直接更新值的思路求和，模式相同。
9、编程求e=1+1/1!+1/2!+1/3!+……+1/n! 直到最后一项小于10^(-6)时e的值10、有一分数序列:1 , 1/2 , 2/3 , 3/5 , 5/8 , 8/13 , 13/21 ……求出这个数列的前20项之和。
11；编程求和：s=1+1/3!+1/5!+1/7!+ …直到最后一项小于10^(-6)12、同上题，1是第1项，1/3！是第2项，求前n项之和13、编程求和1+（1+2）+（1+2+3）+…+（1+2+…+n）,设n=10以上例题都可用“递推”思路编程。
14、编程输出自然数1—1000中所有能被3整除的数，并求其和及个数。
15、求出100—999之间所有明7和暗7的个数。
设暗7非明7.16、有些3位数等于其各位数立方和，求这些3位数。
17、求1000以内分别被3、5、7除，余数都为1的正整数的个数及其和。
以上例子都是对某组有规律数的集合进行求和统计等，循环结合分支。
18、有100匹马，驮100担货：大马驮3担，中马驮2担，两匹小马驮1担，问有大、中小马各多少？19、勾股定理中三个数的关系是：a^2 + b^2 =c^2 编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1) …(1~100随机)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为："; maxPicture1.Print "最小数为："; minPicture1.Print "平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_Activate()Dim i As Integer, j As Integer, k As Integer, n As IntegerFor i = 1 To 100For j = 1 To 100For k = 1 To 100If i * a + j * b + k * c = 100 Thenn = n + 1List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k End IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub4.求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_Click()Dim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd IfNext iEnd Sub5.求各位数字之和input a: '输入任意数Dob=a mod 10: '取a的末位数sum=sum+b:'求和a=a \ 10: '去掉末位数loop until a=0print "sum=";sum: '输出end（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid$(n,i,1))next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数Private Sub Command1_Click()Dim n As String Dim i As Integer Dim s As String n = Text1For i = 1 To Len(n)st = Mid(n, i, 1)s = st + sNext iText2 = sEnd Sub8Private Sub Command2_Click()Text1 =“”Text2 =“”End SubPrivate Sub Command3_Click()EndEnd Sub8.级数有限项求和问题Private Sub Command1_Click()Dim a As Double '存放阶乘Dim s As Double '存放和Dim i As Integer '循环变量Dim n As Double '存放通项Dim m As Double '存放项数s = 1 '和初值a = 1 '阶乘初值i = 1 '循环变量初值Doa = a * i '阶乘n = 1 / a '通项s = s + n '和i = i + 1 '下个循环Loop Until n < 0.000001 '执行循环直到和比0.000001要小Text1 = Str(s) '和列入text1End SubPrivate Sub Command2_Click()Text1 = ""End SubPrivate Sub Command3_Click()EndEnd Sub9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:"))I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I+ 1End IfLoop While N >1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub11. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub12.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A, B) 'x存入最大值Y = IIf(A <= B, A, B) 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数= YEnd Function13.冒泡排序过程Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = InputBox("输入整数")NextSort aFor i = 0 To 9Print a(i)NextEnd SubPrivate Sub Sort(ByRef a() As Integer)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = LBound(a) + 1 To UBound(a)For j = UBound(a) To i Step -1If a(j - 1) > a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub14.顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint "原数组:"For i = 1 To 10a(i) = Rnd * 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 0 Then PrintNext iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iPrint "从小到大排序后数组:"For i = 1 To 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 = 0 Then PrintNext iEnd Sub15. 判断回文数过程建一个Text1,Text2,Command1。