执行下面的程序,单击窗体后在窗体上显示的结果是 ______。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

执行下面的程序,单击窗体后在窗体上显示的结果是 ______。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 Sub

A.EeFF

B.eEfF

C.EEFF

D.eeFF


相关考题:

( 18 )在程序运行时,下面的叙述中正确的是A )用鼠标右键单击窗体中无控件的部分,会执行窗体的 Form_Load 事件过程B )用鼠标左键单击窗体的标题栏,会执行窗体的 Form_Click 事件过程C )只装入而不显示窗体,也会执行窗体的 Form_Load 事件过程D )装入窗体后,每次显示该窗体时,都会执行窗体的 Form_Click 事件过程

在程序运行时,下面的叙述中正确的是A.用鼠标右键单击窗体中无控件的部分,会执行窗体的Form. L0ad事件过程B.用鼠标左键单击窗体的标题栏,会执行窗体的Form_Click事件过程C.只装入而不显示窗体,也会执行窗体的Form. Load事件过程D.装入窗体后,每次显示该窗体时,都会执行窗体的Form_Click事件过程

在程序运行时,下面的叙述中正确的是( )。A.用鼠标右键单击窗体中任何无控件部分,会执行窗体的Form—Load事件过程B.用鼠标左键单击窗体的标题栏,会执行窗体的Form—Click事件过程C.只装入而不显示窗体,也会执行窗体的Form—Load事件过程D.装入窗体后,每次显示该窗体时,都会执行窗体的Form—Click事件过程

在程序运行时,下面的叙述中正确的是( )。A. 用鼠标右键单击窗体中无控件的部分,会执行窗体的Form_Load事件过程B. 用鼠标左键单击窗体的标题栏,会执行窗体的Form. Click事件过程C. 只装入而不显示窗体,也会执行窗体的Form. Load事件过程D. 装入窗体后,每次显示该窗体时,都会执行窗体的Form. Click事件过程

下面的程序运行时,单击窗体后,窗体上显示的结果是( )。A.9 8 7 6 3 2B.2 3 6 7 8 9C.9 8 7 6 3D.2 3 6 7 8

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

运行下列程序: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 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