7. 单击命令按钮时,下列程序的执行结果为______。 Private Function P(N As Integer) Static sum For I=1 To N sum=sum+1 Next I P=sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Debug.Print S End Sub
11. 以下是一个竞赛评分程序,其功能是去掉8位评委中的一个最高分和一个最低分,计算平均分。 Dim max As Integer,min As Integer Dim i As Integer,x As Integer,s As Integer max=0:min=10 For i=1 To 8 x=Val(InputBox("请输入得分(0~10):")) ______ If x<min Then min=x s=s+x Next i ______ MsgBox"最后得分:"&s 有如下语句: ①max=x ②If x>max Then max=x ③If max>x Then max=x ④S=(s-max-min)/6 ⑤s=(max-min)/6 ⑥s=s/6 程序中有两个______,将程序补充完整的正确语句是______。
A.①⑤
B.②④
C.③⑥
D.②⑥
A B C D
B
[解析] 根据题意,代码功能是输入8个数,去掉一个最小值和一个最大值,求出剩余6个数的平均值。代码中,用for循环语句实现输入8个数,并将当前最小值赋给min,当前所有数的和赋给s,因此第一个______中的代码应该实现将当前最大值赋给max,即如果当前x大于max,则max=x,其中“If x>max Then max=x”实现了此功能。for循环结束后,输出s的值,故第二个______中的代码应该实现为s赋予剩余6个数的平均值。当前s的值为8个数的和,求剩余6个数的平均值应该先减去min和max再除以6,即“s=(s-max-min)/6”。因此选择选项B。
12. 在表设计视图中,能够使用“输入掩码向导”设置输入掩码的字段类型是______。
A.数字和日期/时间
B.数字和文本
C.文本和货币
D.文本和日期/时间
A B C D
D
[解析] 利用“输入掩码向导”可以快速建立输入掩码,输入掩码只为文本型和日期/时间型字段提供向导。
13. 以下程序的功能是求“x^2+15”表达式的值,其中x的值由文本框Text0输入,运算的结果由文本框Text1输出。 Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0=x y=x*x+15 Me.Text1=y End Sub 运行上述程序时,无法实现所要求的功能。错误的语句是______。
24. 运行下列程序,输入如下两行: Hi, I am here. 弹出的窗体中的显示结果是______。 Private Sub Command11_Click() Dim abc As String, sum As String sum I"" Do abc=InputBox("输入abc") If Right(abc, 1)="."Then Exit Do sum=sum+abc Loop MsgBox sum End Sub
26. 在窗体中有一个文本框Text1,事件代码如下: Private Sub Text0_Click() x=Val(InputBox("输入x的值")) y=1 If x<>0 Then y=2 Text0.Value=y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是______。
35. 在窗体中有一个命令按钮“Commandl”和一个文本框“Text1”,命令按钮中的事件代码如下: Public x As Integer Private Sub Commandl_Click() x = 10 Call s1 Call s2 MsgBox x End Sub Private Sub s1() x = x + 20 End Sub Private Sub s2() Dim x As Integer x = x + 20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
36. 在窗体中有一个文本框Text1,编写事件代码如下: Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 If X<>0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是______。