题目内容
（请给出正确答案）
Private Sub Command1_Click(
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Te”相关的问题
其中弹出式菜单的回调函数为 mycallback.m function mycallback(obj,events,S) %取得选中的弹出式菜单项的属性值 val=get(obj,'value'); %根据选中的菜单项修改曲线的颜色 switch val case 1 set(S.hplot,'color',[1 0 0]); case 2 set(S.hplot,'color',[0 1 0]); case 3 set(S.hplot,'color',[0 0 1]); end
A. 文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
B. 文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C. 文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上
D. 文本框中的文本将变成灰色，用户仍能改变文本框中的内容
(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中有～个图片框，图片框中有一个名称为Shapel的蓝色圆，如图5所示。程序运行时，单击“开始”按钮，圆逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 提示：程序中的符号常量bule color表示蓝色的值，red color表示红色的值。 注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
For I=1 To 3
Cls
Print "I=",I；
Next@答案@I=3@解析@本题考查Cls语句的功能。Cis语句的功能是清除窗体或其他对象上的所有输出，因此，本题在运行中虽然对I=1和I=2有输出，但都被清除，最后只剩下I=3时的输出值。
Private Sub command5_Click()
Dim db As DAO．Database
Dim rs As DAO．Recordset
Dim zc As DAO．Field
Dim Count 1 As Integer,Count2 As Integer,Count3 As Integer
Sett db=CurrentDb()
Set rs=db．OpenRecordset(“职工基本情况表”)
Set zc=rs．Fields(“职称”)
Count1=0：Count2=0：Count3=0
Do While Not______
Select Case zc
Case Is=“教授”
Count1=Count1+1
Case Is=“副教授”
Count2=Count2+1
Case Else
Count3=Count3+1
End Select
______
Loop
rs．Close
se rs=Nothing
Set db=Nothing
MsgBox“教授：”&Count 1&“，副教授：”&Count2&“，其他：”&Count 3
End Sub
Private Sub Commandl_Click ()
Dim i as integer,s as single，a as single
a=1：s=0
For i=1 To 10
a=_____
s=s+a
Next i
Debug．Print“1+1／2!+1／3!+……=”；S
End Sub
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
