第1题'功能：求1!+2!+ (10)的值。

Private Sub Form_Click()'**********SPACE********** 【?】s = 1For I = 2 To 10t = t * I'**********SPACE********** 【?】'**********SPACE********** 【?】Print sEnd Sub答案：1). t = 1 2). s = s + t 3). Next I 或Next 第1题功能：下面的程序用于求三个数中最大数Private Sub Command1_Click() Dim a, b, c, max, min As Integera = Val(InputBox("请输入第一个数："))b = Val(InputBox(" 请输入第二个数："))c = Val(InputBox("请输入第三个数："))'**********SPACE**********【?】= amin = a'**********SPACE**********If b > max Then 【?】If b < min Then min = b'**********SPACE**********If 【?】Then max = cIf c < min Then min = cPrint "最大数为："; maxPrint "最小数为："; min End Sub 答案：1). Max 2). max = b 3). c > max 或max < c第1题（10.0分）题号:504'【程序填空】'功能：写出程序运行后，单击窗体，Form1上显示的内容' sum 函数的功能为累加求和' isum = 1' isum = 3' isum = 6' isum = 10' isum = 15'-------------------------------------------------------Private Sub Form_Click()Dim I As Integer, isum AsInteger'**********SPACE**********For I = 1 To 【?】isum = sum(I)'**********SPACE**********Form1.Print "isum ＝" 【?】Next IEnd SubPrivate Function sum(n AsInteger)Static j As Integer'**********SPACE**********【?】j + nsum = jEnd Function 答案：1). 52). + isum 或& isum 3). j =第1题（10.0分）题号:507Option Explicit【程序填空】'功能：本程序实现功能：将顺序文本文件“MYFILE.TXT”的' 内容一个字符一个字符地读入文本框txtTest中'-------------------------------------------------------Private Sub Form_Click()Dim InputData AsString * 1txtTest.Text = ""'**********SPACE**********Open App.Path &"\MYFILE.TXT" For 【?】As #1'**********SPACE**********Do While 【?】EOF(1)Input #1,InputData'**********SPACE**********txtTest.Text =txtTest.Text + 【?】LoopClose #1End Sub 答案：1). Input 2). Not 3).InputData第1题（10.0分）题号:57'【程序填空】'功能：求1!+2!+……+10!的值。

'-------------------------------------------------------Private Sub Form_Click()'**********SPACE**********【?】s = 1For I = 2 To 10t = t * I'**********SPACE**********【?】'**********SPACE**********【?】Print sEnd Sub 答案：1). t = 1 2). s = s + t 3).Next I 或Next第1题（10.0分）题号:502'【程序填空】'功能：用输入对话框输入x，根据如图公式计算对应的y，' 在窗体上输出y的值。

'-------------------------------------------------------Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】As Single'**********SPACE********** x = Val(【?】("Please input x :", "输入X的值"))If x = 10 Then'**********SPACE********** 【?】ElseIf x > 10 Then'**********SPACE********** y = Sqr(x) 【?】Elsey = 2 * x ^ 3 + 6End IfPrint yEnd Sub 答案：1). y 2). InputBox 3). y = 0 4). + Sin(x)第1题（10.0分）题号:507 Option Explicit '【程序填空】'功能：本程序实现功能：将顺序文本文件“MYFILE.TXT”的' 内容一个字符一个字符地读入文本框txtTest中'-------------------------------------------------------Private Sub Form_Click()Dim InputData As String * 1txtTest.Text = ""'**********SPACE**********Open App.Path & "\MYFILE.TXT" For 【?】As #1 '**********SPACE**********Do While 【?】EOF(1)Input #1,InputData'**********SPACE**********txtTest.Text =txtTest.Text + 【?】LoopClose #1End Sub 答案：1). Input 2). Not 3).InputData第1题（10.0分）题号:51'【程序填空】'功能：下面的程序段用于建立文件并输出文件，文件内容如下：Private Sub Form_Click()'**********SPACE**********Open "c:\1.txt" For 【?】As #1For i = 1 To 5Print #1, Spc(i); "*****"Next i'**********SPACE**********【?】'**********SPACE**********Open "c:\1.txt" For 【?】As #1For i = 1 To 5Line Input #1, xPrint xNext iClose #1End Sub 答案：1).Output 2). Close #1 或Close3). Input━━━━━━━━━━━━━━━━第1题（10.0分）题号:41'【程序填空】'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。

'-------------------------------------------------------Private Sub Form_Click()Print "5个数34、124、68、73、352的最大值是："max1 = max(34, 124, 68)'**********SPACE**********max1 =【?】Print max1End SubPublic Function max(ByVal a%,ByVal b%, ByVal c%)'**********SPACE**********If 【?】Thenm = aElsem = bEnd If'**********SPACE**********If 【?】Thenmax = mElsemax = cEnd IfEnd Function 答案：1). max(max1, 73, 352) 2). a>b或b<a 3). m > c 或 c < m第1题（10.0分）题号:521'【程序填空】'功能：下面的事件过程判断文本框Text1中输入的数所在区间，' 并在文本框Text2中输出判断结果Private Sub Command1_Click()Dim int1 As Integer'**********SPACE**********【?】= Val(Text1.Text)Select Case int1Case 0Text2.Text = "值为0"'**********SPACE**********Case 【?】Text2.Text = "值在1和10之间（包括1和10）"'**********SPACE**********Case Is > 【?】Text2.Text = "值大于10"Case ElseText2.Text = "值小于0"End SelectEnd Sub 答案：1). int1 2). 1 To 10 3). 10第1题（10.0分）题号:61'【程序填空】'功能：根据输入的学习成绩,分别显示优秀(90分以上), 良好' (75分以上),及格(60分以上),不及格几个等级。