9. 在窗体中使用一个文本框(名为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 MsgBox result End Sub 打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图形是。
7. 执行下面的程序,消息框里显示的结果是。 Private Sub Form Click() Dim Str As String,K As Integer Str="ab" For k=Len(Str) To 1 Step -1 Str=Str & Chr(Asc(Mid(Str,k,1))+k) Next k MsgBox Str End Sub
9. 有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为 C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中;单击“退出”按钮则退出程序。依据上述功能,请将下列程序补充完整。 Private Sub C1_Click() Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4="" End Sub Private Sub C2_Click() If Me!Text1="" Or Me!Text2="" Or Me!Text3=""Then MsgBox“三个文本框都要输入值!” ______ Me!Text4=(Val(Me!Text1)+Val(Me!Text2)+______) End If End Sub Private Sub C3_Click() Docmd.______ End Sub