第1題 功能：求 1!+2!+10!的值。Private Sub Form_Click()*SPACE*【?】s = 1For I = 2 To 10 t = 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 Integer a = Val(InputBox(請輸入第一個數： ) b = Val(InputBox( 請輸入第二個數： ) c = Val(InputBox(請輸入第三個數： ) *SPACE* 【?】 = a min = a *SPACE* If b max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max 10 Then *SPACE* y = Sqr(x) 【?】 Else y = 2 * x 3 + 6 End If Print yEnd Sub 答案： 1). y 2). InputBox 3). y = 0 4). + Sin(x)第1題 （10.0分） 題號:507Option Explicit 【程序填空】功能： 本程序實現功能：將順序文本文件 “MYFILE.TXT” 的 內容一個字符一個字符地讀入文本框txtTest中-Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #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 5 Print #1, Spc(i); *Next i*SPACE*【?】*SPACE*Open c:1.txt For 【?】 As #1For i = 1 To 5 Line Input #1, x Print xNext iClose #1End Sub 答案： 1). Output 2). Close #1 或 Close 3). 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 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function 答案： 1). max(max1, 73, 352) 2). ab 或 b c 或 c 【?】 Text2.Text = 值大于10 Case Else Text2.Text = 值小于0 End SelectEnd Sub 答案： 1). int1 2). 1 To 10 3). 10第1題 （10.0分） 題號:61【程序填空】功能：根據輸入的學習成績,分別顯示優秀(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 IfEnd Sub 答案： 1). x = 75 或 75 b 或 b c 或 c m第1題 （10.0分） 題號:49【程序填空】功能：以下程序段用于求n!Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(請輸入一個正整數) sum = 0 For i = 1 To n*SPACE* sum =【?】 Next i Print sumEnd SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1*SPACE* For i = 1 To 【?】 s = s * i Next i*SPACE* 【?】End Function 答案： 1). sum + mul(i) 2). x 3). mul = s第1題 （10.0分） 題號:60【程序填空】功能：輸入任何一個英文字母x, 若x的值為a,c,d-f ,則顯示x的大寫字母； 若x的值為m,o,p-z,則顯示x的小寫字母； 若x的值為其它的值,則顯示xa（如輸入的X的值是g，則顯示ga）。-Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】*SPACE* Case 【?】 Label1.Caption = UCase(x) Case m, o, p To z