程序填空
'输入任何一个英文字母x,若x的值 为"a","c","d-f" ,则显示x的大写字母；
'若x的值为"m","o","p-z",则显示x的小写字母；
'若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
'
'请在【】处填入正确的内容?
Private Sub Command1_Click()
x = Text1.Text
'**********SPACE**********
【?】
Case "a", "c", "d" To "f"
Label1.Caption = UCase(x)
'**********SPACE**********
Case 【?】
Label1.Caption = LCase(x)
'**********SPACE**********
【?】
Label1.Caption = Trim(x) + "a"
End Select
End Sub
Private Sub Form_Load()
End Sub
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：下面程序运行时单击窗体后，Form1上的输出结果
' x(1) = 8
' x(2) = 6
' x(3) = 4
' x(4) = 3
' x(5) = 1
'请在【?】处填入正确的内容
'-------------------------------------------------------
'
Private Sub Form_Click()
Dim x(5) As Integer
'**********SPACE**********
Dim i, j, t,【?】 As Integer
x(1) = 8
x(2) = 3
x(3) = 1
x(4) = 6
x(5) = 4
For i = 1 To 4
For j = i + 1 To 5
'**********SPACE**********
If x(i) 【?】 x(j) Then t = x(i): x(i) = x(j): x(j) = t
Next j, i
'**********SPACE**********
For k = 1 To 【?】
Form1.Print "x("; k; ")="; x(k)
Next k
End Sub
k
<=
5
'根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),
'及格(60分以上),不及格几个等级。
'
'请在【】处填入正确的内容?
Private Sub Command1_Click()
x = Val(Text1.Text)
If x >= 90 Then
Label1.Caption = "优秀"
'**********SPACE**********
ElseIf 【?】Then
Label1.Caption = "良好"
ElseIf x >= 60 Then
'**********SPACE**********
【?】
'**********SPACE**********
【?】
Label1.Caption = "不及格"
End If
End Sub
Private Sub Form_Load()
End Sub
x>=75
label1.caption = "及格"
else
'下面的程序段用于建立文件并输出文件，文件内容如下：
'
'*****
' *****
' *****
' *****
' *****
'
'请在【】处填入正确的内容?
Private Sub Form_Click()
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
Print #1, Spc(i); "*****"
Next i
'**********SPACE**********
【?】
'**********SPACE**********
Open "c:\1.txt" For 【?】 As #1
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub
output
close #1
input
'代码功能: 求 1! + 2! + ……10!的值?
'
'请在【】处填入正确的内容?
Private Sub Form_Click()
'**********SPACE**********
【?】
s = 1
For I = 2 To 10
t = t * I
'**********SPACE**********
【?】
'*******
***SPACE**********
【?】
Print s
End Sub
t=1
s=s+t
next
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目： 随机生成10个数存入数组中，并将数组排序后输出
'请在【?】处填入正确的内容
'-------------------------------------------------------
'
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i, j, t As Integer
For i = 1 To 10
'**********SPACE**********
a(i) = CInt(10 【?】 Rnd + 1)
Next
For i = 1 To 9
'**********SPACE**********
For j = 【?】 To 10
'**********SPACE**********
If a(i) >【?】 Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next
End Sub
*
i+1
a(j)
'利用下面的过程求m!和m*n
'
'请在【】处填入正确的内容?
Private Sub Form_Click()
Dim m As Integer, n As Integer
m = 2
n = 3
'**********SPACE**********
【?】
End Sub
Private Sub find(x As Integer, y As Integer)
Dim s, i As Integer
'**********SPACE**********
【?】
For i = 1 To x
s = s * i
'**********SPACE**********
p=【?】
Next i
Print s, p
End Sub
find m,n
s = 1
p+y
'过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出所有水仙花数
'
'请在【】处填入正确的内容?
Private Sub Form_Click()
Dim i As Integer
For i = 100 To 999
'**********SPACE**********
【?】
Next i
End Sub
Public Sub suixian(x As Integer)
Dim i%, j%, k%
'**********SPACE**********
i =【?】
j = (x - i * 100) \ 10
k = x - i * 100 - j * 10
'**********SPACE**********
If 【?】 Then Print x
End Sub
suixian (i)
x\100
x=i^3+j^3+k^3
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目：以下程序的功能为，单击窗体后如果输入的数据分别为"W"，"8"和"？"时，
'窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Character、
'？is Other Character
'请在【】处填入正确的内容
'-------------------------------------------------------
Private Sub Form_Click()
Dim strC As String * 1
strC = InputBox("请输入数据")
'**********SPACE**********
Select Case 【?】
'**********SPACE**********
Case "a" To "z", "A" 【?】 "Z"
Form1.Print strC + " Is Alpha Character"
Case "0" To "9"
Form1.Print strC + " Is Numeral Character"
'**********SPACE**********
【?】 Else
Form1.Print strC + " Is Other Character"
End Select
End Sub
strC
,"A" to "Z"
case
'以下程序段用
于输出杨辉三角:
'
'请在【】处填入正确的内容?
Private Sub Form_Click()
Const n = 10
Dim arr(n, n) As Integer
For I = 1 To n
arr(I, I) = 1
'**********SPACE**********
【?】
Next I
For I = 3 To n
For j = 2 To I - 1
'**********SPACE**********
arr(i, j) =【?】
Next j
Next I
For I = 1 To n
For j = 1 To I
'**********SPACE**********
【?】
Next j
Print
Next I
End Sub
arr(i,1) =1
arr(i-1,j-1)+arr(i-1,j)
? arr(i,j)