VB填空题期末考试总结

For i = 1 To 10
Print a(i);
Next i: Print
End Sub
3、* 删除已知数组 a 中的某个元素。
Private Sub Command1_Click()
Dim a() As Variant, n As Integer, Key As Integer
a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval =
End Sub
Private Sub _Load()
Label1.ForeColor = vbWhite
Label1.BackColor = vbGreen
End Sub
For i = 1 To 10
a(i) = Int( * 101)
Print a(i);
Next i: Print
For i = 1 To 9
For j = i + 1 To
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
Dim i As Integer
nt = 1
For i = 1 To n
nt = nt * i
Next i
End Sub
Private Sub Form_Click()
Dim sum As Single, n As Integer
sum = 0
For n = 1 To 9 Step 2
aa ( )
sum = sum +
1、* 产生50个60~100的随机数，统计其中被6整除余2的个数，并将这些数输出。
Private Sub command1_click()
Dim x, n As Integer
Dim counter As Integer
For = 1 To 50
x = Int(Rnd * 41 + 60)
If Mod 6 = 2 Then
Next j
Next i
Print "左下三角中奇数元素的个数为："; n
End Sub
5、* 设计一个求两个数的最大公约数的函数过程。
* 程序代码如下：
Option Base 1
Private Function (ByVal m%, ByVal n%) As Integer
If m < n Then t = m: m = n: n = t
Next j
n = - 1
ReDim Preserve a(na(i);
Next i: Print
End Sub
4、* 统计二维数组a(5×5)的左下三角中奇数元素的个数。
Private Sub Command1_Click()
Dim a(5, 5) As Integer
counter = counter + 1
End If
Next n
Print counter
End Sub
2、* 对10个100以内的整数用选择法按递增顺序排序。
Private Sub Command1_Click()
Dim a(10) As Integer, t As Integer
Dim i As Integer, j As Integer
Next n
Print sum
End Sub
7、* 控件属性改变，如图{<x_3.jpg>}所示
Private Sub Command1_Click()
If Command1.Caption = "字号" Then
Label1. = 30
Command1.Caption = "颜色"
Label1. = vbRed
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print "最大值为 "; max
Print "最小值为 "; min
End Sub
4、*使用双循环实现三角形输出
* *
* **
* ***
* ****
* *****
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101)
Print a(i);
Next i: Print
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then = a(j): a(j) = a(j + 1): a(j + 1) = t
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
gcd =
End Function
6、* 下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。
* 程序代码如下：
Dim nt As Single
Private Sub aa(ByVal n As Single)
Print Tab(5 * (j - 1) + 1); a(i, j);
Next j
Print
Next i
End Sub
For i = 1 To 10
a(i, 1) = 1
a(i, ) = 1
Next i
For i = 3 To 10
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 1 To 10
For j = 1 To
Private Sub Timer1_ ()
Label1 = Val(Int(Rnd * 90000 + 10000))
End Sub
2、*对10个100以内的整数用冒泡法按递减顺序排序。
Private Sub Command1_Click()
Dim a(10) As Integer, t As Integer
Command1.Caption = "字号"
End If
End Sub
3、* 随机产生 n 个两位整数，求出其中的最大值和最小值。
Private Sub Command1_Click()
Dim a(100) As Integer, n As Integer, i As Integer
Dim min As Integer, max As Integer
n = UBound(a)
Key = InputBox("请输入要删除的数")
For i = 0 To n
If Key = a(i) Then Exit For
Next i
If i = n + 1 Then MsgBox ("找不到此数") Exit Sub
For j = i + 1 To n
a(j - 1) = a(j)
For = 1 To 5
Print Tab(25 - i);
For j = To i
Print "*";
Next j
Print
Next i
End Sub
7、* 编写一个显示随机数的程序，如图{<x_2.jpg>}所示。
* 运行过程：
* 点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。
For i = 1 To 5
For j = 1 To 5
(i, j) = Int(Rnd * 100): Print a(i, j);
Next j
Print
Next i
n = 0
For i = 1 To 5
For j = 1 To i
If a(i, j) Mod 2 = Then n = n + 1
Next j
Next i
For i = 1 To 10
Print a( );
Next i: Print
End Sub
4、*杨辉三角形如图所示{<x_5.jpg>}：
* 完成下面程序。
Private Sub Form_Click()
Dim a(1 To 10, 1 To 10) As Integer, i%, j%
= InputBox(vbCrLf + vbCrLf + "n=")
Print "产生的随机数为"
Randomize
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i: Print
min = a(1): max = min
For i = 2 To