网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

执行下面的程序,窗体上第二行显示的内容是()。 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

考题 设有如下程序该程序运行后,单击窗体,则在窗体上显示的内容是:a=( )和b=( )。

考题 执行下面程序,单击命令按钮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