32. 在窗体中有一个文本框Test1,编写事件代码如下: Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X<>0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是
33. 在窗体中有一个命令按钮Command1和一个文本框Test1,编写事件代码如下: Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是
A.6
B.12
C.18
D.21
A B C D
D
[解析] 本题考查的是VBA程序控制语句。本程序有3个For循环,赋值语句“x=3”在第一层循环语句“For I=1 To 4”内,也就是说,无论I的值是1还是4,循环的结果都一样。因为在第一轮循环运行结束、第二轮循环开始时,变量的值都会恢复为3,所以可以将“For I=1 To 4”看作只执行了一次,即I的外层循环没有实际意义,I值为1~4时,x的结果是一样的。根据“For i=1To 3”和“For k=1 To 2”这个嵌套循环,可以推算出“x=x+3”运行了6次: j=1时:k=1,x=3+3=6;k=2,x=6+3=9。 j=2时:k=1,x=9+3=12;k=2,x=12+3=15。 j=3时:k=1,x=15+3=18;k=2,x=18+3=21。 所以,本程序运行“Text1.value=Str(x)”后,在文本框中输出的结果是21。
34. 在窗体中有一个命令按钮command1,编写事件代码如下: Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出的结果是
35. 下列过程的功能是:通过对象变量返回当前窗体的RecordSet属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.RecordSet MsgBox______ End Sub 程序空白处应填写的是
11. 在窗体中有两个文本框分别为Text1和Text2,一个命令按钮Command1,编写如下两个事件过程: Private Sub Command1_Click() a=Text1.Value+Text2.Value MsgBox a End Sub Private Sub Form_Load() Text1.Value=" " Text2.Va]ue=" " End Sub 程序运行时,在文本框Text1中输入78,在文本框中Text2输入87,单击命令按钮,消息框中输出的结果为______。
12. 某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub Command1_Click() Dim mark!,aver!,i%,max1!,min1! aver=0 For i=1 To 7 mark=InputBox("请输入第"&i&"位评委的打分") If i=1 then max1=mark:min1=mark Else If mark<min1 then min1=mark Else If mark>max1 then End If End If Next i aver=(aver-max1-mini)/5 MsgBox aver End Sub
13. “学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。下列程序的功能是:计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句,使程序实现所需要的功能。 Private Sub Command1_Click() Dim en As New ADODB.Connection Dim FS As New ADODB.Reeordset Dim zongfen As New ADODB.Fileld Dim shuxue As New ADODB.Fileld Dim waiyu As New ADODB.Fileld Dim zhuanye As New ADODB.Fileld Dim strSQL As Sting Set en=CurrentProject.Connection StrSQL="Select * from成绩表" rs.Open strSQL,cn,adOpenDynamic,adLockptimistic,adCmdText Set zongfen=rs.Filelds("总分") Set shuxue=rs.Filelds("数学") Set waiyu=rs.Filelds("外语") Set zhuanye=rs.Filelds("专业") Do while Zongfen=shuxue+waiyu+zhuanye rs.MoveNext Loop rs.close en.close Set rs=Nothing Set en=Nothing End Sub