大学计算机VB程序设计考试题目

1、学习资料收集于网络,仅供参考试验三第 1 题 四就运算题设计如下窗体,为五个命令按钮编写5 段代码完成四就运算及退出程序,其中在运算除法时,假如其次个数是零,在消息框中显示信息“ 除数为零”；Public Class Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a + b End

2、Sub PrivateSub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton2.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a - b End Sub PrivateSub Button3_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton3.Click Dim

3、 a, b As Single a = TextBox1.Text b = TextBox2.Text TextBox3.Text = a * b End Sub PrivateSub Button4_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton4.Click Dim a, b As Single a = TextBox1.Text b = TextBox2.Text 学习资料学习资料收集于网络,仅供参考If b = 0 Then MessageBox.Show 除数为零 Else T

4、extBox3.Text = a / b End If End Sub PrivateSub Button5_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton5.Click End End Sub End Class 第 2 题 一元二次方程求解输入系数后,单击“ 求解” 按钮后,依据判别式的Public Class Form1 3 种不怜悯形,分别显示如下的不同结果；PrivateSub Button1_ClickByVal sender As System.Object, ByVal

5、e As System.EventArgs HandlesButton1.Click Dim a, b, c, delta As Double a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text delta = b * b - 4 * a * c If delta 0 Then True Label5.Visible = Label6.Visible = True Label4.Text = 方程有两个不相等实根 Label5.Text = X1= & -b + Math.Sqrtdelta / 2 / a Label6.Text = X

6、2= & -b - Math.Sqrtdelta / 2 / a 学习资料学习资料收集于网络,仅供参考ElseIf delta = 0 Then Label4.Text = 方程有两个相等实根 Label5.Visible = True Label5.Text = X1=X2= & -b / 2 / a Label6.Visible = False Else Label4.Text = 方程没有实根 Label5.Visible = False Label6.Visible = False End If End Sub PrivateSub Button2_ClickByVal sender

7、As System.Object, ByVal e As System.EventArgs HandlesButton2.Click End End Sub End Class 第 3 题 文本框中前景色和背景色的不同组合目的：单项按钮的使用（1）设计窗体如下所示窗体中包含两组单项按钮、两个框架和一个命令按钮；（2）程序功能：分别单击不同的前景色和背景色按钮,在文本框中显示颜色的转变；学习资料学习资料收集于网络,仅供参考（3）设置控件的主要属性1）窗体的文本属性为“ 不同前景色背景色的组合”2）初始前景色为红色、背景色为黄色3）其它属性依据图中显示来设置（4）大事代码Public Class

8、Form1 PrivateSub RadioButton1_CheckedChangedByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles RadioButton1.CheckedChanged TextBox1.ForeColor = Color.Red End Sub PrivateSub RadioButton2_CheckedChangedByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles RadioButton2.Checke

9、dChanged TextBox1.ForeColor = Color.Green End Sub PrivateSub RadioButton3_CheckedChangedByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles RadioButton3.CheckedChanged TextBox1.ForeColor = Color.Black End Sub PrivateSub RadioButton4_CheckedChangedByVal sender As System.Object, ByVal e

10、AsSystem.EventArgs Handles RadioButton4.CheckedChanged TextBox1.BackColor = Color.White End Sub PrivateSub RadioButton5_CheckedChangedByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles RadioButton5.CheckedChanged TextBox1.BackColor = Color.Yellow End Sub PrivateSub Form1_Load ByVal se

11、nder As System.Object, ByVal e As System.EventArgs HandlesMyBase.Load End Sub End Class 第 4 题 三位整数的反序显示在窗体中添加二个文本框、二个标签和一个命令按钮,在一个文本学习资料学习资料收集于网络,仅供参考框中输入一个三位的整数,单击命令按钮后,在另一个框中按相反次序显示该数,例如,输入 123,就在另一个文本框中显示 321；提示：此题先将每位上的数字分解出来,这要用到整除和运算余数的运算符,例如 123 整除 100 后的结果 1 就是百位,而 123 除以 10 的余数就是个位,至于十位,大家可

12、以自己确定；分解后的三位数再倒序组合成新的三位整数；Public Class Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a, b, c, d, y As Single a = TextBox1.Text b = a 100 c = a - 100 * b 10 d = a - 100 * b - 10 * c TextBox2.Text = d & c & b End Sub End Class 试验五第 1

13、题 累加编写程序,运算 1100 之间的全部偶数之和,程序窗口界面及控件自行设计；Public Class Form1 Private Sub Button1_Click ByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim i, sum As Long For i = 2 To 100 Step 2 sum += i Next 学习资料学习资料收集于网络,仅供参考 TextBox1.Text = sum End Sub End Class 第 2 题 使用循环求解水仙花数的问题要

14、求：（1）参考教材上例 4-3 关于水仙花数的定义；（2）程序窗口界面及控件与例 4-3 的结果即图 4-3 一样；（3）单击“ 开头” 按钮后,在文本框中显示求出的结果；Public Class Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim M, k1, k2, k3 As Integer TextBox1.Clear For M = 100 To 999 k1 = M 100 k2 = M 10 Mod 10

15、Then + 3+ k2.ToString + 3+ k3 = M Mod 10 If M = k1 3 + k2 3 + k3 3 TextBox1.Text += M.ToString + = + k1.ToString + k3.ToString + 3 + vbCrLf End If Next End Sub End Class 第 3 题 统计整数的因子编写程序,向一个文本框输入一个整数,单击“ 开头” 按钮后,找出该数的全部因子,并统计因子的个数和总和,结果在另一个文本框中显示,共有三行,其中第一行该数的全部因子,第二行显示该数的因子个数,最终一行显示该数全部因子之和,窗体界面如下

16、：学习资料学习资料收集于网络,仅供参考Public Class Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a, b, c, d As Long c = 0 a = TextBox1.Text b = 1 While b = a If a Mod b = 0 Then c += 1 d += b TextBox2.Text = 该整数的因子是： & += CStr b + , + vbCrLf + 因子个数为：

17、+ c.ToString + vbCrLf + 因子之和为： + d.ToString End If b = b + 1 End While End Sub End Class 第 4 题 判定素数编写程序,判定某个整数是否是素数,在一个文本框中输入一个整数,单击命令按钮后,在另一个文本框中显示该数是否是素数,程序代码可以参考例4-10 的代码,在此基础上改写；以下是输入不同整数后的两种不同的结果,窗体结构也参照下图；学习资料学习资料收集于网络,仅供参考PublicClass Form1 ByVal sender As System.Object, ByVal e As System.Even

18、tArgs HandlesPrivateSub Button1_ClickButton1.Click Dim i, j As Integer Dim flag As Boolean = True i = TextBox1.Text j = 2 While j 5 Then k = ai ai = a11 - i a11 - i = k TextBox1.Text += a11 - i.ToString + Else k = a11 - i a11 - i = ai ai = k TextBox1.Text += ai.ToString + End If Next 完整程序 ; PublicCl

19、ass Form1 ByVal sender As System.Object, ByVal e As System.EventArgs HandlesPrivateSub Button1_ClickButton1.Click Dim a10, k As Integer For i = 1 To 10 ai = InputBox 请输入整数 TextBox1.Text += ai.ToString + Next k = 0 TextBox1.Text += vbCrLf + 交换后： For i = 1 To 10 If i 5 Then k = ai ai = a11 - i a11 - i

20、 = k TextBox1.Text += a11 - i.ToString + Else k = a11 - i a11 - i = ai ai = k TextBox1.Text += ai.ToString + End If Next TextBox1.Text = 交换前： + TextBox1.Text End Sub PrivateSub Form1_Load ByVal sender As System.Object, ByVal e As System.EventArgs HandlesMyBase.Load End Sub End Class 学习资料学习资料收集于网络,仅供

21、参考第 2 题 元素平均编写程序,通过使用 inputbox 将 10 个整数放入一个一维数组中,然后运算这 10 个整数的平均值,在文本框中显示平均值和这 10 个数中低于平均值的数Public Class Form1 Private Sub Button1_Click ByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a10, sum, i As Integer Dim av As Single For i = 1 To 10 ai = InputBox 请输入整数 sum

22、 += ai Next av = sum / 10 For i = 1 To 10 If ai av Then TextBox1.Text += ai.ToString + End If Next TextBox1.Text = 该组数的平均值为： + av.ToString + vbCrLf + 小于平均值的数有： + TextBox1.Text End Sub End Class 第 3 题 矩阵转置编写程序,实现矩阵转置,即矩阵的行、列互换,将一个3 行 4 列的矩阵转换为4 行 3 列,要示在文本框中分别显示转换前后的两个矩阵；提示 : str = 交换前： + vbCrLf For

23、i = 0 To 3 For j = 0 To 2 str += ai, j.ToString + bj, i = ai, j Next str += vbCrLf Next str += 交换后 : + vbCrLf For i = 0 To 2 For j = 0 To 3 str += bi, j.ToString + Next str += vbCrLf Next 完整程序 : 学习资料学习资料收集于网络,仅供参考PublicClass Form1 ByVal sender As System.Object, ByVal e As System.EventArgs HandlesPri

24、vateSub Button1_ClickButton1.Click Dim a, As Integer = 1, 2, 3, 4, 4, 5, 6, 7, 6, 7, 8, 9 Dim i, j, b3, 2 As Integer , str As String str = 交换前： + vbCrLf For i = 0 To 2 For j = 0 To 3 str += ai, j.ToString + bj, i = ai, j Next str += vbCrLf Next str += 交换后： + vbCrLf For i = 0 To 3 For j = 0 To 2 str

25、+= bi, j.ToString + Next str += vbCrLf Next TextBox1.Text = str End Sub End Class 试验七 : 第 1 题 完全数编写程序, 找出 22022 之间的全部完全数；完全数是指某个整数的每个因子之和正好等于该数本身,例如：由于 6=1+2+3 ,28=1+2+4+7+14 ,所以这两个数都是完全数；要求：（1）程序窗口界面及控件自行设计；（2）单击“ 开头” 按钮后,在文本框中显示求出的结果；（3） 请用进度条提示. ByVal sender As System.Object, ByVal e As System.Ev

26、entArgs HandlesPublicClass Form1 PrivateSub Button1_ClickButton1.Click Dim a, b, c, d, i As Integer For a = 2 To 2022 c = 0 For b = 1 To a - 1 d = a Mod b If d = 0 Then c += b End If Next If a = c Then TextBox1.Text += a.ToString + End If ProgressBar1.Value = a 学习资料学习资料收集于网络,仅供参考Next End Sub End Cla

27、ss 第 2 题 杨辉三角形打印以下的杨辉三角形（打印 1 10 行）；1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 5 10 10 5 1 提示：（1）使用一个二维数组a 储存这些数据ByVal e As System.EventArgs Handles（2）第 0 列、主对角线上元素都为1 （3）其它元素为其上一行元素与上一行左侧元素之和, 即: aI,j=ai-1,j+ai-1,j-1 PublicClass Form1 PrivateSub Button1_ClickByVal sender As System.Object, Button1.Click Dim a10,

28、 10 As Integer Dim i, j As Integer a1, 1 = 1 For i = 2 To 10 ai, 1 = 1 For j = 2 To i ai, j = ai - 1, j - 1 + ai - 1, j Next Next For i = 1 To 10 For j = 1 To i TextBox1.Text += ai, j.ToString + Next TextBox1.Text += vbCrLf Next End Sub End Class 第 3 题 求最小值建立一个 4 行 3 列的二维数组,找出其中最小的元素所在的行和列,并在文本框中输出该

29、 值及其行、列位置；Public Class Form1 学习资料学习资料收集于网络,仅供参考PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a, As Integer = 45, 21, 13, 42, 15, 16, 37, 18, 29, 39, 51, 62 Dim i, j, m, b As Integer Dim min As Integer = 100 For i = 0 To 3 For j = 0 To 2 I

30、f ai, j min Then min = ai, j m = i + 1 : b = j + 1 End If Next Next TextBox1.Text += min.ToString + + m.ToString + 行 + b.ToString + 列 End Sub End Class 试验八 : 第 1 题 运算阶乘设计如下的窗体,向第一个文本框中输入一个整数,单击“ 运算” 按钮,在另外一个文本框中显示该整数的阶乘,要求,阶乘的运算在按钮的单击大事中完成；Public Class Form1 PrivateSub Button1_ClickByVal sender As S

31、ystem.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a, b, c As Integer a = TextBox1.Text b = 1 For c = 1 To a Step 1 b = b * c Next TextBox2.Text = b End Sub End Class 第 2 题 运算阶乘设计窗体与第 1 题相同,向第一个文本框中输入一个整数,单击“ 运算” 按钮,在另外一个文学习资料学习资料收集于网络,仅供参考本框中显示该整数的阶乘,要求采纳 中显示；Public Class Form1 SUB

32、子过程运算阶乘,整数通过参数传递,阶乘在子过程PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a As Integer a = TextBox1.Text jcha End Sub Sub jch ByVal n As Integer Dim i, s As Integer s = 1 For i = 1 To n s = s * i Next TextBox2.Text = s End Sub End Class 第 3 题

33、运算阶乘设计窗体与第 1 题相同,向第一个文本框中输入一个整数,单击“ 运算” 按钮,在另外一个文本框中显示该整数的阶乘,要求采纳 返回；Public Class Form1 FUCTION 函数过程,整数通过参数传递,阶乘由该过程PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a As Integer a = TextBox1.Text TextBox2.Text = jcha End Sub Function jchByVa

34、l n As Integer Dim i, s As Integer s = 1 For i = 1 To n s = s * i Next Return s End Function End Class 第 4 题 找出一维数组元素中的最大值和最小值设计窗体如下图,单击“ 开头” 按钮后,从键盘输入学习资料10 个整数,输入到一维数组中,学习资料收集于网络,仅供参考输入时采纳inputbox 函数,见图（ 2）,然后找出这10 个数中的最大值和最小值,并在文本框中输出,见图,Public Class Form1 PrivateSub Button1_ClickByVal sender As

35、System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim a9, b, c, i As Integer a0 = InputBox 输入第一个数 a1 = InputBox 输入其次个数 a2 = InputBox 输入第三个数 a3 = InputBox 输入第四个数 a4 = InputBox 输入第五个数 a5 = InputBox 输入第六个数 a6 = InputBox 输入第七个数 a7 = InputBox 输入第八个数 a8 = InputBox 输入第九个数 a9 = InputBox 输入第十个数

36、 b = a0 : c = a0 For i = 0 To 9 If ai c Then c = ai End If TextBox1.Text += ai.ToString + Next TextBox1.Text = TextBox1.Text + vbCrLf + 最大数为： + c.ToString + vbCrLf + 最小数为： + b.ToString End Sub PrivateSub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton2.Click End

37、 End Sub End Class 试验九 : 第 1 题 运算数列之和求 a+aa+aaa+aaaa+. .+aa.a（ n 个）,其中 a 为 19 之间的整数；例如：当 a = 1, n = 3 时,求 1+11+111 之和；学习资料学习资料收集于网络,仅供参考当 a = 5, n = 7 时,求 555555 5555555555555555 之和；HandlesPublicClass Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs Button1.Cl

38、ick Dim a, n, s, i, m, b As Integer a = TextBox1.Text n = TextBox2.Text b = n For i = 1 To n m = a * 10 i - 1 * b b = b - 1 s = s + m Next TextBox3.Text = s End Sub End Class 第 2 题 运算长方形的面积和周长设计如下的窗体,向前两个文本框中分别输入长和宽,单击“ 运算”,在另外一个文本框中显示长方形的面积,要求采纳 FUNCTION 函数过程运算面积,长和宽通过参数传递；Function area ByRef a As

39、Integer , ByRef b As Integer As Long Dim m As Long m = a * b Return m End Function Function ccc ByRef a As Integer Dim n As Integer n = 2 * a + b Return n End Function , ByRef b As Integer As Integer PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Cl

40、ick 学习资料学习资料收集于网络,仅供参考Dim a, b, c As Integer Dim s As Long a = TextBox1.Text b = TextBox2.Text s = areaa, b c = ccca, b TextBox3.Text = s TextBox4.Text = c End Sub End Class 第 3 题 综合题,统计各个分数段的人数设计窗体如下：编程要求：（ 1 ） 单 击 “开 始 ”按 钮 后 , 显 示 如 下 的 消 息 框 , 向 框 中 输 入 总 的 人 数 ：假如输入的人数小于 1,就显示以下的消息框,然后重新输入人数学习资

41、料学习资料收集于网络,仅供参考（2）输入人数后,接下来分别输入这些同学的分数,假如输入的分数不在 0100 之间,就显示 下面的消息框,然后重新输入（3）输入分数时同时统计每个分数段的人数,每个分数段按以下的规定：90100：优 8089：良 7079：中 6069：及格60 分以下：不及格（图中是输入10 个分数后的结果）（4）最终按下图显示统计后的结果：PublicClass Form1 PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Clic

42、k Dim str As String Dim a As Integer str = 请输入同学人数 a = InputBoxstr If a 1 Then MessageBox.Show 请重新输入 End If 学习资料学习资料收集于网络,仅供参考Dim sa, i As Integer For i = 1 To a str = 请输入分数 si = InputBoxstr If si 100 Then MessageBox.Show分数不对,请重新输入End If Next Dim you, liang, zhong, ji, bu As Integer For i = 1 To a I

43、f si = 90 Then you += 1 ElseIf si = 80 Then liang += 1 ElseIf si = 70 Then zhong += 1 ElseIf si = 60 Then ji += 1 Else : bu += 1 End If Next str = For i = 1 To a str += si.ToString + Next TextBox1.Text = 分数： + vbCrLf + str + vbCrLf + 总人数 + = + a.ToString + vbCrLf + 各等级分数的人数： + vbCrLf + 优秀 + = + you.

44、ToString + vbCrLf + 良 + = + liang.ToString + vbCrLf + 中 + = + zhong.ToString + vbCrLf + 及格 + = + ji.ToString + vbCrLf + 不及格 + = + bu.ToString End Sub PrivateSub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton2.Click TextBox1.Clear End Sub PrivateSub Button3_Clic

45、kByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton3.Click End End Sub End Class 试验十 : 第 1 题 运算二维数组每行的最大元素要求如下：（1）程序运行时,显示如下的窗体,窗体中有两个标签、两个文本框和四个命令按钮：学习资料学习资料收集于网络,仅供参考（2）单击“ 显示二维数组” 的按钮时,在第一个文本框中显示3 行 4 列的二维数组,其中数组元素要求使用随机函数产生,范畴在 0100 之间,也就是每次单击都产生不同的数据,如下 所示：（3）单击“ 运算各行最大值”

46、按钮时,运算二维数组各行的最大值,并在其次个文本框中显 示,如下所示：（4）单击“ 清除” 按钮时,清除两个文本框中的内容；（5）单击“ 退出” 按钮,终止程序的执行；编程提示（1）由于两段大事代码都要用到同一个二维数组,因此,可以在过程之外定义如下的数组：Public a2, 3 As Integer （2）“ 显示二维数组” 的按钮参考代码如下：学习资料学习资料收集于网络,仅供参考（3）“ 运算各行最大值” 按钮参考代码如下：Public Class Form1 Public a2, 3 As Integer ByVal sender As System.Object, ByVal e A

47、s System.EventArgs HandlesPrivateSub Button1_ClickButton1.Click Dim i, j As Integer Dim str As String str = Randomize For i = 0 To 2 For j = 0 To 3 ai, j = IntRnd * 100 str += ai, j.ToString + Next str += vbCrLf Next TextBox1.Text = str End Sub 学习资料学习资料收集于网络,仅供参考PrivateSub Button2_ClickByVal sender

48、As System.Object, ByVal e As System.EventArgs HandlesButton2.Click Dim i, j, max As Integer Dim str As String str = For i = 0 To 2 max = ai, 0 For j = 0 To 3 If ai, j max Then max = ai, j Next str += max.ToString + vbCrLf Next TextBox2.Text = str End Sub PrivateSub Button3_ClickByVal sender As Syste

49、m.Object, ByVal e As System.EventArgs HandlesButton3.Click TextBox1.Clear TextBox2.Clear End Sub PrivateSub Button4_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton4.Click End End Sub End Class 第 2 题 两个一维数组对应元素相加此题的有些方法可参考上一题,要求如下：（1）程序运行时,显示如下的窗体,窗体中有三个标签、三个文本框和四个命令按钮学习

50、资料学习资料收集于网络,仅供参考（2）单击“ 产生两个一维数组元素” 的按钮时,在前两个文本框中分别显示含有 10 个元素的一维数组,其中数组元素要求使用随机函数产生,范畴在 0100 之间,（3）单击“ 数组相加” 按钮时,运算这两个一维数组对应元素的和,即第 0 个元素和第 0 个相加 ,相加结果储存在第 3 个数组的第 0 个元素中,第 1 个和第 1 个相加,结果储存在第 1个元素中,运算后在第三个文本框中显示第三个一维数组,（4）单击“ 清除” 按钮时,清除三个文本框中的内容；（5）单击“ 退出” 按钮,终止程序的执行；PublicClass Form1 ByVal sender A

51、s System.Object, ByVal e As System.EventArgs HandlesPublic c10 As Integer Public a10 As Integer Public b10 As Integer PrivateSub Button1_ClickButton1.Click Dim i As Integer Dim str1, str2 As String str1 = str2 = Randomize For i = 1 To 10 ai = IntRnd * 100 str1 += ai.ToString + bi = IntRnd * 100 str2

52、 += bi.ToString + Next TextBox1.Text = str1 TextBox2.Text = str2 End Sub PrivateSub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton2.Click Dim i, n As Integer Dim str As String str = For i = 1 To 10 学习资料学习资料收集于网络,仅供参考 n = ai + bi str += n.ToString + TextBox3.Tex

53、t = str Next End Sub PrivateSub Button3_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton3.Click TextBox1.Clear TextBox2.Clear TextBox3.Clear End Sub PrivateSub Button4_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton4.Click End End Sub End Cl

54、ass 第 3 题 运算二维数组中的最大值及显现的次数（1）程序运行时,显示如下的窗体,窗体中有二个文本框和四个命令按钮（2）单击“ 显示二维数组” 的按钮时,在第一个文本框中显示3 行 4 列的二维数组,其中数组元素要求使用随机函数产生,范畴在 0100 之间,也就是每次单击都产生不同的数据（3）单击“ 运算最大值” 按钮时,运算二维数组中的最大值,并统计最大值显现的次数,并在其次个文本框中显示（4）单击“ 清除” 按钮时,清除二个文本框中的内容；（5）单击“ 退出” 按钮,终止程序的执行；Public Class Form1 Public a2, 3 As Integer ByVal se

55、nder As System.Object, ByVal e As System.EventArgs HandlesPrivateSub Button1_ClickButton1.Click Dim i, j As Integer Dim str As String str = 学习资料学习资料收集于网络,仅供参考 Randomize For i = 0 To 2 For j = 0 To 3 ai, j = IntRnd * 100 str += ai, j.ToString + Next str += vbCrLf Next TextBox1.Text = str End Sub Priv

56、ateSub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton2.Click Dim b, i, j, max As Integer max = a0, 0 b = 0 For i = 0 To 2 For j = 0 To 3 If ai, j max Then max = ai, j Next Next For i = 0 To 2 For j = 0 To 3 If ai, j = max Then b += 1 Next Next TextBox2.Text = 最

57、大值 = + max.ToString + vbCrLf + 显现次数 = + b.ToString End Sub PrivateSub Button3_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton3.Click TextBox1.Clear TextBox2.Clear End Sub PrivateSub Button4_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton4.C

58、lick End End Sub End Class 第 4 题 运算一维数组元素的和设计窗体如下图（1）,单击“ 开头” 按钮后,从键盘输入 10 个整数,输入到一维数组中,输入时采纳 inputbox 函数,见图（ 2）,然后调用 FUNCTION 函数过程, 运算这里 10 个数的和,将和作为返回值在文本框中输出,见图（3）,其中输入框的使用如下：For i=1 to 10 学习资料学习资料收集于网络,仅供参考str = 请输入第 + i.ToString + 个整数 ai = InputBoxstr next Public Class Form1 Public a10 As Integ

59、er Function qiuhe ByVal c As Integer As Long Dim i As Integer For i = 1 To 10 c += ai Next Return c End Function PrivateSub Button1_ClickByVal sender As System.Object, ByVal e As System.EventArgs HandlesButton1.Click Dim i, m As Integer 个整数 Dim str As String For i = 1 To 10 str = 请输入第 + i.ToString +

60、 ai = InputBoxstr Next m = qiuhem TextBox1.Text = 和 = + m.ToString End Sub End Class 第 5 题 运算长方形的面积和周长设计如下的窗体,向前两个文本框中分别输入长和宽,单击“ 运算”,在另外两个文本框中显示长方形的面积和周长,要求采纳 SUB 函数过程运算面积和周长,长和宽通过参数传递,面积和周长通过 引用传递 返回；学习资料学习资料收集于网络,仅供参考其中运算面积的 SUB 过程参考代码如下：Sub areaByVal height As Integer, byval width as integer,byr