精品文档 当a = 5, n = 7时，求5＋55＋555＋5555＋55555＋5555555之和。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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 Integer, ByRef b As Integer) As Long Dim m As Long m = a * b Return m End Function
Function ccc(ByRef a As Integer, ByRef b As Integer) As Integer Dim n As Integer n = 2 * (a + b) Return n End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
精品文档 Dim a, b, c As Integer Dim s As Long
a = TextBox1.Text b = TextBox2.Text s = area(a, b) c = ccc(a, b)
TextBox3.Text = s TextBox4.Text = c End Sub End Class
第3题 综合题，统计各个分数段的人数
设计窗体如下：
编程要求：
（1）单击“开始”按钮后，显示如下的消息框，向框中输入总的人数：
如果输入的人数小于1，则显示下列的消息框，然后重新输入人数
精品文档
（2）输入人数后，接下来分别输入这些学生的分数，如果输入的分数不在0~100之间，则显示下面的消息框，然后重新输入
（3）输入分数时同时统计每个分数段的人数，每个分数段按下列的规定： 90~100：优 80~89：良 70~79：中 60~69：及格
60分以下：不及格
（4）最后按下图显示统计后的结果：（图中是输入10个分数后的结果）
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String Dim a As Integer
str = \请输入学生人数\ a = InputBox(str) If a < 1 Then
MessageBox.Show(\请重新输入\) End If
精品文档 Dim s(a), i As Integer For i = 1 To a
str = \请输入分数\ s(i) = InputBox(str)
If s(i) < 0 Or s(i) > 100 Then
MessageBox.Show(\分数不对，请重新输入\) End If Next
Dim you, liang, zhong, ji, bu As Integer For i = 1 To a
If s(i) >= 90 Then you += 1
ElseIf s(i) >= 80 Then liang += 1
ElseIf s(i) >= 70 Then zhong += 1
ElseIf s(i) >= 60 Then ji += 1 Else : bu += 1 End If Next str = \
For i = 1 To a
str += s(i).ToString + \ Next
TextBox1.Text = \分数：\ + vbCrLf + str + vbCrLf + \总人数\ + \ + a.ToString + vbCrLf + \各等级分数的人数：\ + vbCrLf + \优秀\ + \ + you.ToString + vbCrLf + \良\ + \ + liang.ToString + vbCrLf + \中\ + \ + zhong.ToString + vbCrLf + \及格\ + \ + ji.ToString + vbCrLf + \不及格\ + \ + bu.ToString End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear() End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub End Class
试验十:
第1题 计算二维数组每行的最大元素
要求如下：
（1）程序运行时，显示如下的窗体，窗体中有两个标签、两个文本框和四个命令按钮：
精品文档
（2）单击“显示二维数组”的按钮时，在第一个文本框中显示3行4列的二维数组，其中数组元素要求使用随机函数产生，范围在0~100之间，也就是每次单击都产生不同的数据，如下所示：
（3）单击“计算各行最大值”按钮时，计算二维数组各行的最大值，并在第二个文本框中显示，如下所示：
（4）单击“清除”按钮时，清除两个文本框中的内容。 （5）单击“退出”按钮，结束程序的执行。 编程提示
（1）由于两段事件代码都要用到同一个二维数组，因此，可以在过程之外定义如下的数组： Public a(2, 3) As Integer
（2）“显示二维数组”的按钮参考代码如下：
[新版]大学计算机VB程序设计考试题目.doc
