网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
执行下面的程序，窗体上第二行显示的内容是（）。 Dim a（3，3）As Integer，i As Integer，j As Integer For i=1 To 3 For j=1 To 3 a（i，j）=（i-1）*2+j Print a（i，j）； Nextj Print Next i
- A、123
- B、567
- C、345
- D、456
参考答案
更多 “ 执行下面的程序，窗体上第二行显示的内容是（）。 Dim a（3，3）As Integer，i As Integer，j As Integer For i=1 To 3 For j=1 To 3 a（i，j）=（i-1）*2+j Print a（i，j）； Nextj Print Next iA、123B、567C、345D、456” 相关考题
考题
设有如下程序:Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For I=0 To 3Print a(5 – I);Next IEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。
A.4321B.5432C.6543D.7654
考题
执行以下语句过程，在窗体上显示的内容是Option Base 0Private Sub Command3_Click（）Dim dd=Array（"a", "b", "c", "d"）Print d（1） ; d（3）End Sub（ ）。A．abB．bdC．acD．出错
考题
（ 27 ）下面程序执行时，在窗体上显示的是Private Sub Command1_Click()Dim a(10)For k = 1 To 10a(k) = 11 – kNext kPrint a(a(3)\a(7) Mod a(5))End SubA ） 3B ） 5C ） 7D ）9
考题
在窗体上画一个名称为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
考题
（ 18 ）在程序运行时，下面的叙述中正确的是A ）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B ）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C ）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D ）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程
考题
在窗体上绘制一个名称为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
考题
在程序运行时，下面的叙述中正确的是A．用鼠标右键单击窗体中无控件的部分，会执行窗体的Form. L0ad事件过程B．用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C．只装入而不显示窗体，也会执行窗体的Form. Load事件过程D．装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程
考题
有如下程序,执行程序后单击Button1按钮,窗体上显示的是什么()Private Sub Command1_Click()Dim a Dim b As Integera = 5 ／ 2b = 5 ／ 2Print a, bEnd Sub
A、2 2B、 2 2.5C、 2.5 2D、 2.5 2.5
考题
在窗体上画一个命令按钮，然后编写如下程序：Dim x As IntegerSub inc(a As Integer)x=x+aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Msgbox x；End Sub程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
考题
设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I“=”Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是A．#2=2 #3=3B．#2=2 #3=5C．#；2=2 #；3=3D．#；2=2 #3；=5
考题
设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。A．ABCDE 20 10B．10 20 ABCDEC．ABCDE 10 20D．出错信息
考题
设有如下程序： Option Base 0 Private Sub Form_Click（ ） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 4
考题
设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是A．4 3 21B．543 2C．6 54 3D．7 6 54
考题
在程序运行时，下面的叙述中正确的是（ ）。A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程C.只装入而不显示窗体，也会执行窗体的Form—Load事件过程D.装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程
考题
执行下面的程序，单击窗体后在窗体上显示的结果是 ______。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
考题
在窗体上添加一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0Private Sub Commandl_Click（） Dim cityAs VariantCity=．Array（"北京"， "上海"，"天津”， "重庆"）Print city（1）End Sub程序执行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.空白B.错误提示C.北京D.上海
考题
在窗体上画一个文本框，然后编写如下程序： 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
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．54321B．4C．54321D．0
考题
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 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
考题
执行以下语句过程，在窗体上显示的内容是 Option Base 0 Prirate Sub Command3_Click() Dim d d=Array("a","b","c","d") Print d(1)；d(3) End Sub A) B)C) D)A．abB．bdC． acD．出错
考题
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
考题
把窗体的KeyPreview属性设置为True,然后编写如下事件过程(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch))Print Chr(KeyAscii + 2)程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。A.AB.BC.CD.D
考题
设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。A．4 3 2 1B．5 4 3 2C．6 5 4 3D．7 6 5 4
考题
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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
考题
执行下面程序，单击命令按钮Command1后，窗体上显示的内容是（）。 Private Sub Command1_Click（） Dim x As Integer，y As Integer x=-5 If Sgn（x）Then y=Sgn（x^2） Else y=Sgn（x） End If Print y End SubA、-5B、25C、1D、-1
考题
单选题下面程序执行时在窗体上显示的是（）。 Private Sub Command1_Click（） Dim a（10） For k=1 to 10 a（k）=11-k Next k Print a（a（3）/a（7）Mod a（5）） End SubA
3B
5C
7D
9
热门标签
最新试卷