执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STRCHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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
A．ABCE
B．ABCD
C．ABDB
D．ABFB
相关考题：
执行下列的程序，消息框里显示的结果是______。Pfivate Sub Form_Click()Dim Str As StringStr＝""S="Access"For i＝Len(S) To 1 Step-1Str＝StrMid(S.i,1)Next IMsgBox StrEnd Sub
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．0B．5C．6D．7
在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i, j)=i*j Next j Next i Label1. Caption=Str(arr(2, 2)+arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是______。A．12B．13C．14D．15
在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程： Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form. KeyPress(KeyAscii As Integer) str= strChr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strlChr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。A．abcB．不显示任何信息C．ABCD．出错
现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。A．4B．0C．2D．以上都不对
阅读下面的程序：Private Sub Form_Click（）Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为______。
在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Labell.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是A． 12B．13C．14D．15
在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是( )。A．12B．13C．14D．15
设有以下窗体单击事件过程：Private Sub Form_Click()a=1For i=1 To 3End SelectNext iEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是( )。
请阅读程序：Private Sub Form_Click()m=1For i=4 To 1 Step-1Print Str(m)；m=m+1For j=1 To iPrint”*”；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是( )。A．1**** 2*** 3** 4*B．4* 3** 2*** 1****C．**** *** ** *D．* ** *** ****
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【 】。PRIVATE FORM_CLICK( )STATIC A AS INTEGERDIM B AS INTEGERB=A+B+1A=A+BMSGBOX A"," BEND SUB
某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。Private Sub Form_Click()Dim k as Integer， n as Integer，m as Integern=10 ：m=1 : k=1Do While k＜=nm=m*2k=k+1LoopMsgBox mEnd Sub
执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub
在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码： Private Sub C1_Click() str=“ABAABAAABABBA” For i=6 To 2 Step-2 x=Mid(str，i，i) y=Left(str,，i) z=Right(str，i) Next i Msg Box xyz End Sub 单击命令按钮，则消息框的输出结果是( )。A．ABBAABB．ABBABAC．BABABAD．BAABBA
为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。Private Sub Form_Click( )Dim k As Integer ,n As Integer ,m As Integern=10:m=1:k=1Do While k＜=nm=m*2k=k+1LoopMsgBox mEnd Sub
编写如下事件过程： Option Explicit Private Sub Form_Click() Dim Str As String， I As Integer Open "examp" For Output As 1 For I=1 To 5 Str=Chr(I+64) Print #1，Str； Next I Close 1 Open”examp'，For lnput AS 2 Str=Input(10，#2) Print Str； Close 2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．ABCDEB．96C．65D．abcde
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 Str1 Str3 = Str3 Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End SubA．EeFFB．eEfFC．EEFFD．eeFF
在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是A．1B．3C．6D．10
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
运行下列程序：Private Sub Form_Click( )Dim a As Integera = 1For i = 1 To 5Call fun1(a)Next iPrint aEnd SubPrivate Sub fun1(x)y = 2Dox = x + yLoop Until x 10End Sub单击窗体后，则在窗体上显示的结果是( )。A.5B.1 2 3 4 5C.19D.7
在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：Private Sub C1_Click()str＝"ABAABAAABABBA"For i＝6 To 2 Step-2x＝Mid(str,i,i)y＝Left(str,i)z＝Right(str,i)Next iMsgBox xyzEnd Sub单击命令按钮，则消息框的输出结果是( )。A．ABBAABB．ABBABAC．BABABAD．BAABBA