下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______

相似题目

• 下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub

  A . X+Y=11 B . 5+6=11 C . 11 D . True

  查看最佳答案

• 下列程序段的执行结果为（）https://assets.asklib.com/images/image2/2017060615444147351.png

  A . 5 B . 25 C . 0 D . 16

  查看最佳答案

• 下列程序段的执行结果为（）https://assets.asklib.com/images/image2/2017060614204686051.png

  A . 10 B . 30 C . 10，30 D . 30，10

  查看最佳答案

• 下列程序段的执行结果是（）https://assets.asklib.com/images/image2/2017060614232494697.png

  A . 1；2 B . 1；3 C . 1；1 D . 3；1

  查看最佳答案

• 下列程序输出结果为（ ）。 Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub

  查看最佳答案

• 下列程序的执行结果为________Option Base 0Private Sub Command1_Click()Dim aa = Array(a, b, c, d, e, f, g)Print a(1); a(3); a(5)End sub

  查看最佳答案

• 下列程序输出结果为（ ）。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub

  查看最佳答案

• 下列程序代码的运行结果为（ ）。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub

  查看最佳答案

• 单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜

  单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub A．23 47 B．5 11 C．10 22 D．23 29

  查看最佳答案

• 下面程序执行时，输出的结果是（)。Private Sub Form_Click（)DimiASInteger,j As Integeri=10Doi=i+

  下面程序执行时，输出的结果是()。 Private Sub Form_Click() DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End Sub A．50 10 B．50 9 C．57 10 D．59 9

  查看最佳答案

• 设 int x=0,y=-1;则执行下列程序段的输出结果为（）;

  查看最佳答案

• 单击窗体时，下列程序段的执行结果为（)。Private Sub Form_Crick（)Line（200,200)-（400,400)Print"+

  单击窗体时，下列程序段的执行结果为()。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub A．在窗体上画一斜线，从斜线终点处开始打印两行符号 B．在窗体上画一斜线，从斜线起点处开始打印两行符号 C．在窗体上画一斜线，从窗体左上角开始打印两行符号 D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线

  查看最佳答案

• 下列程序的执行结果为Private Sub Command1_Click（) Dim p As Integer, q As Integer p=12: q=20 Call Value（p, q) Print p; qEnd SubPrivate Sub Value（ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n -

  A．20 1220 15 B．12 2012 25 C．24 1512 20 D．24 1212 15

  查看最佳答案

• 单击一次命令结束后，下列程序的执行结果是 Private Sub Commandl_Click（) s=Sat（1)+Sat（2)+

  单击一次命令结束后，下列程序的执行结果是 Private Sub Commandl_Click() s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function A．15 B．25 C．35 D．45

  查看最佳答案

• ◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

  查看最佳答案

• 执行下面的程序段后，结果是（）。Private Sub Form_Click（）Dim mIf m Then Print m Else Print m+1End Sub

  A．A.0 B．B.1 C．C.’’ D．D.False

  查看最佳答案

• 程序执行结果s的值是 【7】 。 Private Sub sub1（Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click（) Dim i As Integer i=3 Call sub 1 （i) if i＞4 then i=i mod 2 Print cstr（i) End Sub

  查看最佳答案

• 单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click（) BT 4 End Sub Private Sub BT（x As Integer) x=x*2+1 If x＜6 Then Call BT（x) End If x=x*2 Print x； End Sub Ａ) 15 Ｂ) 16 Ｃ) 17 Ｄ) 18

  A．15 B． 16 C． 17 D． 18

  查看最佳答案

• 单击命令按钮时，下列程序的执行结果是（)。 Private Sub Command1_Click（) Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc（c，b，a) End Sub Function FirProc （x As Integer，y As Integer，z As Integer) FirProc

  A．13 B．16 C．36 D．33

  查看最佳答案

• 执行下面程序，第一行输出结果是 （11) ，第二行输出结果是 （12) 。 Option Explicit Private Sub Form_Click（) Dim A As Integer A=2 Call Subl（A) End Sub Private Subl（x As Integer) x=x*2+1 If x＜10 Then Call Subl（x) End If x=x*2+1 Pri

  查看最佳答案

• 20、下列程序代码的运行结果为（）。 Private Sub Command1_Click（) For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub

  A．60 B．50 C．30 D．20

  查看最佳答案

• 下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub

  查看最佳答案

• 单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n

  查看最佳答案

• 下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n

  A．SetWarning B．SetValue C．MsgBox D．Beep

  查看最佳答案