hsBlue.LargeChange = 5 r = 0 b = 0 g = 0
hsRed.Value = 0 hsGreen.Value = 0 hsBlue.Value = 0
lblColor.BackColor = RGB(r, g, b) End Sub
Private Sub hsBlue_Change() '**********SPACE********** b =【?】
lblColor.BackColor = RGB(r, g, b) End Sub
Private Sub hsBlue_Scroll() b = hsBlue.Value
lblColor.BackColor = RGB(r, g, b) End Sub
Private Sub hsGreen_Change() g = hsGreen.Value
lblColor.BackColor = RGB(r, g, b) End Sub
Private Sub hsGreen_Scroll() g = hsGreen.Value
lblColor.BackColor = RGB(r, g, b) End Sub
Private Sub hsRed_Change() r = hsRed.Value
'**********SPACE********** lblColor.【?】 = RGB(r, g, b) End Sub
Private Sub hsRed_Scroll() r = hsRed.Value
lblColor.BackColor = RGB(r, g, b) End Sub 答案： 1). 255 2). hsBlue.Value 3). BackColor
〖第73题〗『程序填空』(1分)(题号:54)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：本程序用于实现：从键盘接收一数字，判断其是否在数组
' 中，如果在数组中则将其删除，否则显示该数字不在数组 ' 中。
'-------------------------------------------------------
Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10
a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print
x = InputBox(\请输入要删除的整数\For i = 1 To 10
'**********SPACE********** If a(i) = x Then 【?】 Next i
'**********SPACE********** If 【?】 Then For k = i To 9
'**********SPACE********** 【?】 Next k
Print \删除后的数组:\ For i = 1 To 9 Print a(i); Next i Else
Print \该数字不在数组中\End If End Sub 答案：
1). Exit For 2). i<10 或 10>i
3). a(k) = a(★ k ★+ ★1★)
〖第74题〗『程序填空』(1分)(题号:48)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：利用下面的过程求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 答案：
1). find m, n
2). s = 1 或 s = 1:p=0 3). p★+★y
〖第75题〗『程序填空』(1分)(题号:493)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：本程序功能为，第一次单击窗体，Form1的输出结果为 '2 5 9
'请在【】处填入正确的内容
'-------------------------------------------------------
Private Function sum(n As Integer) '**********SPACE********** 【?】 j As Integer j = j + n + 1 sum = j End Function
Private Sub Form_Click() Dim i%, s%
'**********SPACE********** For 【?】 = 1 To 3
'**********SPACE********** s = 【?】 Form1.Print s; Next i End Sub 答案： 1). Static 2). i 3). sum(i)
〖第76题〗『程序填空』(1分)(题号:40)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：以下程序段用于输出杨辉三角：
'-------------------------------------------------------
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 答案：
1). arr(i, 1) = 1
2). ★arr(i - 1, j - 1)★ +★ arr(i - 1, j) 3). Print arr(i, j);
〖第77题〗『程序填空』(1分)(题号:506)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目： 写出程序运行时单击窗体后，Form1上
输出结果。
' 0 2 4 ' -1 1 3 ' -2 0 2 ' -3 -1 1
'请在【】处填入正确的内容
'------------------------------------------------------- '
Private Sub Form_Click()
Dim i As Integer Dim j As Integer Dim h As Integer Dim k As Integer Dim a(2, 3) As Integer
'**********SPACE********** For i = 0 To 【?】 For j = 0 To 3
'**********SPACE********** a(i, j) = 2 【?】 i - j Next j, i For h = 0 To 3
'**********SPACE********** For 【?】 = 0 To 2 Form1.Print a(k, h), Next k Print Next h End Sub 答案： 1). 2 2). * 3). k
〖第78题〗『程序填空』(1分)(题号:37)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：以下程序用于判断一个正整数（≥3）是否为素数。
'-------------------------------------------------------
Private Sub Form_Click()
n = InputBox(\请输入一个正整数（≥3）\k = Int(Sqr(n)) i = 2 swit = 0
'**********SPACE********** While i <= k And 【?】 '**********SPACE********** If 【?】 Then swit = 1 Else
'**********SPACE********** 【?】 End If Wend
If swit = 0 Then Print n; \是一个素数\Else
Print n; \不是素数\End If End Sub 答案：
1). swit = 0 2). n Mod i = 0 3). i = ★i ★+★ 1
〖第79题〗『程序填空』(1分)(题号:540)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：窗体中有两个List列表，及4个按钮。 ' 程序功能，单击“产生随机数”按钮，随机产生20个随机数填入List1中
' “保存”按钮作用是将数组内容写到文件中 ' “读出”按钮作用是将文件内容读到数组中 ' “结束”按钮作用是结束程序
'请在【】处填入正确的内容
'------------------------------------------------------- '
Dim d(1 To 20) As Integer
Private Sub Command1_Click() '\产生随机数\
Dim i As Integer List1.Clear For i = 1 To 20
'**********SPACE********** d(i) = Int(1 + 99 *【?】) List1.AddItem d(i) Next i End Sub
Private Sub Command2_Click() '\保存\ Dim i As Integer
Open App.Path & \#1
For i = 1 To 20
'**********SPACE********** Write 【?】, d(i) Next i Close #1 End Sub
Private Sub Command3_Click() '\读出\ Dim x As String
Open App.Path & \ List2.Clear
'**********SPACE********** Do While Not 【?】 Input #1, x List2.AddItem x Loop Close #1 End Sub
Private Sub Command4_Click() '\结束\ End End Sub 答案： 1). Rnd 2). #1 3). EOF(1)
〖第1题〗『程序改错』(1分)(题号:455)
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：猜数游戏：已知程序用户界面如下，程序启动后
' Lable1和Lable2滚动显示属于[1，100]的随机整数，
' 当用户单击\左大\或\右大\按钮时，滚动停止，如果
' 用户猜对了，在Lable3中显示\猜对了\，否则显示\猜错了\。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------
Private Sub Command1_Click() Timer1.Enabled = False
'**********FOUND**********
If Val(Label1.Caption) < Val(Label2.Caption)
Then
Label3.Caption = \猜对了\ Else
Label3.Caption = \猜错了\ End If End Sub
Private Sub Command2_Click() Timer1.Enabled = False
If Val(Label1.Caption) < Val(Label2.Caption) Then
'**********FOUND********** Label3.Caption = \猜错了\ Else
'**********FOUND********** Label3.Caption = \猜对了\ End If End Sub
Private Sub Timer1_Timer() Randomize
Label1.Caption = Int(Rnd() * 100 + 1) Label2.Caption = Int(Rnd() * 100 + 1) End Sub 答案： 1).
If
Val(Label1.Caption)
>
Val(Label2.Caption) Then 或 If Val(Label2.Caption) < Val(Label1.Caption) Then
2). Label3.Caption = \猜对了\ 3). Label3.Caption = \猜错了\
〖第2题〗『程序改错』(1分)(题号:481)
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:下面程序的功能是将一个整数转化为数值字符串，
' 列如123，转化为\转化为“-123”