在窗体中有一个标签Labelo,标题为“测试进行中”:有一个命令按钮Command1,事件代码如下: Private Sub Command1_Click( ) Labelo.Caption="标签" End Sub Private Sub Form_Load( ) Form.Caption="举例" Command1.Caption="移动" End Sub 打开窗体后单击命令按钮,屏幕显示
在窗体中有一个标签Lb1和一个命令按钮Command1,事件代码如下: Option Compare Database Dim a As String *10 Private Sub Command 1_Click( ) a="1234" b=Len(a) Me.Lb1.Coption=b End Sub 打开窗体后单击命令按钮,窗体中显示的内容是
在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码如下: Private Sub run_Click( ) result="" For i=1 To Me!n For j=1 To Me!n result=result+"*" Next j result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗体后,如果通过文本框输入的的值为4,单击命令按钮后输出的图型是
在窗体中使用一个文本框(名为x)接受输入值,有一个命令按钮test,事件代码如下: Private Sub text_Click( ) y=0 For i=0 To Me!x y=y+2*i+1 Next i MsgBox y End Sub 打开窗体后,若通过文本框输入值为3,单击命令按钮,输出的结果是__。
在窗体中使用一个文本框(名为num1)接受输入值,有一个命令按钮run13,事件代码如下: Private Sub run13_Click( ) If Me!num1>=60 Then result="及格" ElseI fMe!num1>=70 Then result="通过" Elself Me!mum1>=85 Then result="合格" End If MsgBox result End Sub 打开窗体后,若通过文本框输入的值为85,单击命令按钮,输出结果是__。
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时到达0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的文本框Itime。事件代码如下,要求填空完成事件过程。 Option Compare Database Dim flag As Boolean Dim i As Integer Private Sub Form_Load( ) flag= __ Me.TimerInterval=1000 i=0 End Sub Private Sub Form_Timer( ) If flag=True And i<20 Then Me!Time.Capti_dj=20-i i=__ Else DoCmd.Close End If End Sub Private Sub ok_click( ) ' 登录程序略 ' 如果用户名和密码输入正确,则:flag=False End Sub