以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间,刷新的时间间隔由滚动条来设定。窗
代码如下,请填空。 Private Sub HScroll1_Change() Timer1.Interval=【 】 End Sub Private Sub Timer1_【 】() Text1.Text=Time End Sub
代码如下,请填空。 Private Sub HScroll1_Change() Timer1.Interval=【 】 End Sub Private Sub Timer1_【 】() Text1.Text=Time End Sub
Private Sub Command1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To【 】 r=Int(Rnd*2) If r=【 】Then n1=n1+1 Else n2=n2+1 End If Next TcxtText=n1 TextText=n2 End Sub
在窗体中添加一个命令按钮,(其Name属性为Command1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。请在【 】和【 】、【 】处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【 】) If a(j)【 】5=0 Then【 】 Print a(j) Next j Print print k/100 End Sub
A.Visible
B.Timer
C.Interval
D.Enabled
A.Enabled
B.Visible
C.Interval
D.Timer
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel),另外设置一个标题为空的菜单项<控件数组),其Name属性值为mnuDyn,Index值为0,Visible属性值为False;然后编写以下程序来实现增加和减少菜单项的功能,完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId;InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD),Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub
A.双击数据库窗口中的宏Macro1
B.单击登录窗体中的验证按钮Command1
C.在文本框Text1中输入密码后按<Enter>键
D.在VBA程序Module1中运行宏Macro1
在窗体上有5个控件:一个名称为Text1的文本框控件,用来显示文本;两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框;两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时,文本框中显示的字体加下划线,当Option2被选中时,文字框中显示的字体大小为16磅,程序运行时的界面如图20-5所示。请填空。
Private Sub Check1_Click() If Check1.Value=【 】Then Text1.FontUnderline=True Else Text1.FontUnderline=False End If End Sub Private Sub Option2_Click() Text1.【 】 End Sub
A.Form1.Close()
B.this.Close()
C.Button1.Close()
D.me.Close()