vb程序题100道

Print "y="; y
End Sub
程序题（6）
下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("x=")
y = InputBox("y=")
For K = 1 To 9
A(K) = K ^ 2
Print A(K);
Next K
End Sub
运行结果为________
程序题（19）
下面程序的功能是：根据给定数组，用选择排序法按从小到大递增的顺序排列并显示排序结果
Private Sub Form_click()
Randomize
For i = 1 To 10
a(i) = Int(91 * Rnd + 10)
Print a(i);
Next i
Print
min= a(1): index = 1
For i = 2 To 10
If ____ Then min = a(i): index=i
Dim a(), iMin%, i%, j%, t%
a = Array(8, 6, 9, 3, 14, 7, 23)
n = UBound(a)
For i = 0 To n - 1
iMin = i
For j = i + 1 To n
If___________ Then iMin = j
Print 4;
End If
If A <= 5 Then
Print 5;
End If
If A <= 6 Then
Print 6;
End If
Print
End Sub
程序运行结果为________.
程序题（17）
下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，
并求a中的最小值及最小值在数组a中的位置，根据选择答案把程序补充完整
Private Sub form_Click()
Dim a(10) As Integer, i%, min%, index%
x = InputBox("x=")
a = InputBox("a=")
If ___________ Then
y = 0
Else
If x>-a And x<a Then
y =a-x
Else
y = x - 1
End If
End If
Print "*****"
End If
以上程序_________。
程序题（3）
Private Sub Form_Click()
A = 3
If A <= 3 Then
Print 3;
End If
If A <= 4 Then
Randomize
For i = 1 To 1Fra bibliotek For j ____
a(i,j) =Int(Rnd*9)+1
Print Tab(j * 5);a(i, j);
Next j
Print
Next i
End Sub
Next i
Print "数组a中的最小值为："; min
Print "最小值所在位置为："; index
End Sub
程序题（18）
有如下程序：
Option Base 1
Private Sub form_click()
Dim A(1 To 9) As Single
End Select
该程序段显示的运行结果是_________。
程序题（2）
给定程序段：
Dim a As Integer, b As Integer, c As Integer
a=1:b=2:c=3
If a=c-b Then
Print"#####"
Else
Do While i <= 100
If i Mod 10 <> 0 Then
s = s + i
i = i + 1
Else
i = i + 1
End If
Loop
Print s
End Sub
运行后，输出的结果是_______
程序题（13）
下面事件过程的功能是打印图案
@
@@@
@@@@@
根据所给选择答案，把程序补充完整
Private Sub form_click()
a(i,j) = _________
Print Tab(j * 5); a(i, j);
Next j
Print
Next i
End Sub
程序题（15）
建立并输出10*10的下三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
i = i + 1
End If
i = i + 1
Loop
Print s
End Sub
运行后，输出的结果是_______
程序题（12）
Private Sub form_click()
s = 0
i = 1
*********
在横线上填上适当内容。
Private Sub form_Click()
Dim i%, j%
For i = 1 To 5
Print Spc(6 - i);
For j = 1 to _____
Print "*";
Next j
Print
Next j
t = a(i)
a(i) = a(iMin)
a(iMin) = t
Next i
For i = LBound(a) To UBound(a)
Print a(i);
Next i
End Sub
程序题（20）
程序题（14）
建立并输出10*10的方阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j%
Randomize
For i = 1 To 10
For j = 1 To 10
Print "x>y"
ElseIf x = y Then
Print "x=y"
Else
Print "x<y"
End If
End Sub
程序题（5）
输入x和a的值，按
分段函数：
当-a<x<a时，y=a-x
Next i
End Sub
程序题（11）
Private Sub Form_click()
Dim s%, i%
s = 0
i = 100
Do While i <= 120
If (i \ 3) * 3 = i Then
s = s + 1
End Sub
运行后，输出的结果是_______。
程序题（9）
下面事件过程的功能是求Ｓ＝１＋（１＊２）＋（１＊２＊３）＋…＋（１＊２＊…＊n）的值，
根据选择答案在横线上填上适当内容。
Private Sub Command1_Click()
Dim n%, i%, j&, s&
n = InputBox("n=")
Next j
Print
Next i
End Sub
程序题（16）
建立并输出10*10的上三角矩阵，其中每个数都是随机数且范围是[1，9]，把下面程序补充完整
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j%
Private Sub Form_click()
Dim a%(1 to 10,1 to 10), i%, j%
Randomize
For i = 1 To 10
For j = 1 To _____
a(i,j) =Int(Rnd*9)+1
Print Tab(j * 5); a(i, j);
程序题（1）
Dim x
x = Int(Rnd) + 5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
当x=a或x=-a时，y=0
当x>a或x<-a时，y=x-1 ，
计算y的值，把下列程序补充完整
Private Sub Command1_Click()
Dim x!, a%, y#