m = 2 * x End Sub
程序运行后，单击命令按钮，则输出结果为 【44】 18
8．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，并编写如下事件过程：
Private Sub Command1_Click()
Open \ For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1)
If c >= \ Print #1, LCase(c) End If Next i Close End Sub
程序运行后，，在文本框中输入以下字符串： Microsoft Visual Basic Programming
然后单击命令按钮，则文件outf.txt中的内容是 【45】 。mvbp
四．程序填空题 (每空2分，共30分)
请将正确答案按【 】中的序号写入【文字答题卡】，否则不得分。
1．下列程序的功能是：交换如下图所示的两个列表框中的项目。运行程序后，当双击某个项目时，该项目从本列表框中消失，并出现在另一个列表框中。列表框1的名称为L1，列表框2的名称为L2。请填空。
Private Sub Form_Activate()
L1.AddItem \： L1.AddItem \ L1.AddItem \： L1.AddItem \End Sub
Private Sub L1_DblClick()
L2.AddItem 【46】 L1.RemoveItem L1.ListIndex End Sub
L1.text
第 9 页 共 12 页
Private Sub L2_DblClick()
L1.AddItem L2.Text
L2.RemoveItem 【47】 L2.ListIndex End Sub
2．在窗体上画一个名称为Label1的标签，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，控件数组名称为Option1，程序运行后，如果单击某个单选按钮，则标签中的字体将根据所选择的单选按钮切换，如下图所示，请填空。
Private Sub Option1_Click(Index As Integer) Dim t As String
Select Case 【48】 Index Case 0
t = \宋体\ Case 1
t = \黑体\ Case 2
t = \隶书\ End Select
Label1. 【49】 = t fontname End Sub
3．在窗体上放置如下图所示的控件，主要控件的名称和功能如下表所示：
第 10 页 共 12 页
控件类型 文本框 控件名称 Text1 Text2 功能说明 用于输入随机数个数 用于输出能被5整除的随机数个数 用于输出产生的随机数，每行显示10个 图片框 Picture1 命令按钮 Command1 单击该按钮可以调用Division函数 以下程序中，函数Division的功能是：生成n个200～300之间的随机整数（包括200和300），并能够在图片框中按照每行10个显示这些随机数。函数的返回值是这n个随机数中能被5整除的数的个数。请填空。
Private Sub Command1_Click()
Text2 = 【50】 str(Division(val(text))) End Sub
Private Function Division(n As Integer) As Integer Dim I As Integer
Dim Count As Integer 'Count：能被5整除的数的个数 Dim A( ) As Integer ReDim A(n) Randomize For I = 1 To n
A(I) = 【51】 Rnd*100+200 Picture1.Print A(I);
If I Mod 10 = 0 Then 【52】 picture1.print
If 【53】 Then a(i) mod 5 = 0
Count = Count + 1 End If Next I
Division = 【54】 count End Function
4．在窗体上画一个文本框，并编写如下代码：
Private Sub Form_Load()
Open \ Text1 = \End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If 【55】 = 13 Then keyascii
If UCase(Text1) = 【56】 Then “END” Close
End '结束程序 Else
Write #1, 【57】 text1
第 11 页 共 12 页
Text1 = \ End If End If End Sub
以上程序的功能是：在D：盘根目录下建立一个名为temp.txt的文件，在文本框中输入一串字符，每次按回车键（回车键的ASCII码值为13）后都把当前文本框中的内容写入到文件temp.txt中，并清除文本框的内容；如果输入“END”，则关闭文件并结束程序。请填空。
5．在窗体上画一个命令按钮，名称为Command1，并编写如下代码：
Private Sub Command1_Click() Dim A(100) As Integer Dim sum As Integer
Dim I As Integer, max As Integer, min As Integer For I = 1 To 100
A(I) = Val(Intputbox(\请输入一个整数\ Next I
max = A(1): min = A(1)
【58】 sum=a(1) For I = 2 To 100
sum = sum + A(I)
If 【59】 Then max = A(I) a(i)>max If 【60】 Then min = A(I) a(i) Print \最大值=\最小值=\ Print \平均值=\End Sub 以上程序的功能是：输入100个整数，求去掉一个最大值和一个最小值之后的平均值。请填空。 五．编程题 (共10分) 在窗体上画一个命令按钮，名称为Command1。在该按钮的单击事件中编写代码，其功能为：计算1－1/22＋1/32－??＋1/n2，直到最后一项的绝对值小于10-4为止。 Private Sub Command1_Click() Dim sum!, t!, i% t = 1: f = 1: i = 1 Do While t >= 0.0001 sum = sum + f * t i = i + 1: f = -f: t = 1 / (i * i) Loop Print sum End Sub 第 12 页 共 12 页
