VB程序填空

第1 '功能：求 1!+2!+……+10!的值。 Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10     t = t * I '**********SPACE**********     【?】 '**********SPACE********** 【?】 Print s End 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 < min Then min = c       Print "最大数为："; max       Print "最小数为："; 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 As Integer     '**********SPACE**********     For I = 1 To 【?】         isum = sum(I)         '**********SPACE**********         Form1.Print "isum ＝" 【?】     Next I End Sub Private Function sum(n As Integer)     Static j As Integer     '**********SPACE**********     【?】 j + n      sum = j End Function    答案： 1). 5        2). + isum 或 & isum  3). j = 第1题 （10.0分）  题号:507 Option 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 #1         End Sub                答案：  1). Input  2). Not  3). InputData 第1题 （10.0分）  题号:57'【程序填空】 '功能：求 1!+2!+……+10!的值。 '------------------------------------------------------- Private Sub Form_Click() '**********SPACE********** 【?】 s = 1 For I = 2 To 10     t = t * I '**********SPACE**********     【?】 '**********SPACE********** 【?】 Print s End 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) 【?】   Else       y = 2 * x ^ 3 + 6   End If   Print y End 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 * 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 #1 End Sub                  答案：  1). Input  2). Not  3). InputData 第1题 （10.0分）  题号:51'【程序填空】 '功能：下面的程序段用于建立文件并输出文件，文件内容如下： 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      答案：  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 max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If  【?】 Then   m = a Else   m = b End If '**********SPACE********** If 【?】 Then   max = m Else   max = c End If End Function        答案：  1). max(max1, 73, 352)  2). a>b 或 b c 或 c < m 第1题 （10.0分）  题号:521'【程序填空】 '功能：下面的事件过程判断文本框Text1中输入的数所在区间， '        并在文本框Text2中输出判断结果 Private Sub Command1_Click()         Dim int1 As Integer         '**********SPACE**********         【?】 = Val(Text1.Text)         Select Case int1             Case 0                 Text2.Text = "值为0"             '**********SPACE**********             Case  【?】                 Text2.Text = "值在1和10之间（包括1和10）"             '**********SPACE**********             Case Is > 【?】                 Text2.Text = "值大于10"             Case Else                 Text2.Text = "值小于0"         End Select End 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 If End Sub      答案：  1). x >= 75 或 75 <= X  2). Label1.Caption = "及格" 或 Label1 = "及格"  3). Else 第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 max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If  【?】 Then   m = a Else   m = b End If '**********SPACE********** If 【?】 Then   max = m Else   max = c End If End Function          答案： 1). max(max1, 73, 352) 2). a>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 sum End Sub Private 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"             Label1.Caption = LCase(x)         Case Else '**********SPACE**********             【?】     End Select End Sub答案：  1). Select Case x  2). "a", "c", "d" To "f"   3). Label1.Caption = Trim(x) + "a"