发布时间 : 星期四 文章VB_经典考试题及答案更新完毕开始阅读
Print x, Odd(x) End Sub
Function Odd (ByVal n As Integer) As Boolean If Then Odd=False Else Odd=True End If End Function
15、 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。
Private Sub Form_Load() Command1.Enabled=False End Sub
Private Sub Text1_ () Command1.Enabled=True End Sub
16、计算100个学生的平均分：
Dim mark（1 To 100）as Integer sum=0
sum=sum+mark(i) next i
17、以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”) amax=x amin=x
Do While If x>amax Then amax=x If Then amin=x
21
x=InputBox(“Enter a score”) Loop
Print”Max=”;amax,”Min=”;amin End Sub
18、在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，
在标签Label1中显示所选中的项目。请在 处填入适当的内容将程序补充完整。
Private Sub Form_Load() List1.AddItem”北京” List1.AddItem”上海” List1.AddItem”湖北” End Sub
Private Sub () Label1.Caption= End Sub
19、下面的程序用“选择”法数组a中的10个整数按升序排列，请在 处将程序补充完整。
Option Base 1
Private Sub Command1_Click( ) Dim a
a=Array(-2,5,24,58,43,-10,87,75,27,83) For i=i 1 To 9 __________ For j=i + 1 To n
If Then iMin = j Next j a1=a(i) a(i)=a(imin) a(imin)=a1 next i For i=1 to 10 Print a(i) Next i End Sub
20、打印如下所示的“数字金字塔”
End Sub
22、以下程序用来输出1到100所有奇数的和，请补充完该程序。
Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0
Private Sub Form_Click()
For i = 1 To 9
Print \ Next j
For k = 1 To i Print k; Next k
For Print k; Next k Print Next i End Sub
21、程序填空，打印如下的乘积表。
Dim a() As Integer
Private Sub Picture1_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 0 To 3 For j = 0 To 2
‘每个元素赋值并
Private Sub Form_Click()
Print \Tab(9); 3, Tab(18); 6; Tab(27); 9; Tab(36); 12 Print
For i = 15 To 18 Print i;
For j = 3 To 12 Step 3
Next j Print Next i
22
在图形框显示
Picture1.Print \i; \j; \a(i, j); \\ Next j Picture1.Print Next i
‘重新指明数组大小，并保留原来的值，这时只能改变最后一维大小
Picture1.Print
\
For S = s + x Next x Print s
End Sub
23、ReDim语句和Preserve语句的使用，程序运行界面如图所示。
For j = 3 To 4 a(3, j) = j + 20
‘显示原来的最后两个元素 ‘显示新增加的最后两个元素 Next j End Sub
24、打印“杨辉三角“，用数组存储各行数字，运行界面如图所示：
提示：杨辉三角形的特点是第i行有j个数字；每行的第一个、后一个数均为1；其余每一个数正好
Private Sub Form_click() Dim sc(10, 10) For i = 0 To 4 For j = 0 To i
Print sc(i, j); \ Next j Print Next i End Sub
除的数字，请补充完该程序。 Private Sub Command4_Click() Dim x As Integer
x = 100
Do Until If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop End Sub
27、编程计算由下公式确定的S值，并在窗体Form1上输出结果。
S=4×(1-1/2+1/3-1/4+……+1/99-1/100) Private Sub Form_Click() Dim S!, K% S = 0
For K = 1 To 100 S = S + Next K End Sub
28、编程计算由下公式确定的S值，并在窗体Form1上输出结果。
S=1+(1×2)+(1×2×3)+……+(1×2×3×……×N)
Private Sub Form_Click() Dim S&, N%, K%, M%, L% 23
等于它上一行的同一列和同一列数之和。 26、以下程序用来输出100到200间不能被3整
Private Sub Form_Click() Dim a(10, 10) For i = 1 To 6 For j = 1 To i If i = j or j = 1 Then a(i, j) = 1 Else
End If Next j Next i For i = 1 To 6
For j = 1 To i
Next j Picture1.Print Next i End Sub
25、输出方阵SC中的下三角元素，运行界面如图所示：
S = 0
N = InputBox(\输入一个正整数作为多项式的项数\
For K = 1 To N For L = 1 To K M = M * L Next L
S = Next K Print S End Sub
29、给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer
y = InputBox(＂请输入年号＂)
If (y Mod 4 = 0 y Mod 100<>0) or (y Mod 400 = 0) Then Print ＂是闰年＂ Else
Print ＂是普通年份＂ End If End Sub
30、编程计算由下公式确定的S值，并在窗体Form1上输出结果。
S=12+22+32+42+……+N2 Private Sub Form_Click() Dim S&, N%, K%, M% S = 0 : M = 2
N = InputBox(\输入一个正整数\ For K = 1 To N
S = S + Next K End Sub
31、以下程序段的作用是首先按降序输入10个数到数组Y的前10个元素中，又输入一个YO插入
24
到数组Y中，插入YO后Y中的数据仍按降序排列。请补充完该程序。 Dim Y(1 To 11) For I = 1 To 10
Y(i) = Val(InputBox(\请输入Y(i):\Next I
X = Val(InputBox(\请输入x:\For I = 10 To 1 Step -1 If Then Y(I + 1) = X Exit For End If
Y(I + 1) = Y(i) Next I Print Y(10) For I = 1 To 11
Print Y(i) Next I
32、假设我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后我国人口达到或超过15亿。
Private Sub Form_Click()
Dim P As Double, R As Single, N As Integer R = 0.01 N = 0
Do While P <= 1500000000 P = P + P * R Loop
Print N; \年后，人口为\End Sub
33、下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a < b Then
d = a : a = b : b = d End If If a < c Then
d = a : a = c : c = d