下列程序的执行结果为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 -
相似题目
-
下列程序段运行后输出的结果是()。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
-
下面程序: Private Sub Command1_Click() m$="ABC" n$="abc" k$=Lcase$(m$) j$=Ucase$(n$) Print Asc(k$) End Sub 运行后输出结果为()
-
下列程序的运行结果为( )。Private Sub Command1_Click()Score = Int(Rnd * 10) + 80Select Case ScoreCase ls < 60a$ = ECase 60 To 69a$ = DCase 70 To 79a$ = CCase 80 To 89a$ = BCase Elsea$ = AEnd SelectPrint a$End Sub
-
Sub Inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub command1_click() Inc 2 Inc 3 Inc 4 End Sub 程序运行后,单击命令按钮,输出结果为:( )( ) ( )
-
下列程序输出结果为( )。 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
-
执行下列程序后,输出的结果是: Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) 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 Form_Click()DimiASInteger,j As Integeri=10Doi=i+
-
单击窗体时,下列程序段的执行结果为()。Private Sub Form_Crick()Line(200,200)-(400,400)Print"+
-
单击一次命令结束后,下列程序的执行结果是 Private Sub Commandl_Click() s=Sat(1)+Sat(2)+
-
◑设有如下程序: 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
-
程序执行结果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 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
-
执行下面程序,第一行输出结果是 (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
-
下列程序段的执行结果为Private Sub Command1_Click() Text1.Text=c End Sub程序运行后,如果从键盘上输入’16’,则在文本框显示的内容是______
-
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
-
下列程序运行后,输出结果为______。 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
推荐题目
- 有关胰源性溃疡,下列哪项是错误的()
- 钢筋混凝土楼板按其施工方式不同分为()、()和装配整体式楼板三种。
- 今后一个时期公交车辆以清洁能源车辆为主,大力发展电驱动公交车,为配合全市治理PM2.5工作贡献力量。()
- 放射性物品运输中发生核与辐射事故的,承运人、托运人应当按照核与辐射事故应急响应指南的要求,做好事故应急工作,并立即报告事故发生地的()人民政府环境保护主管部门。
- 使用4个1kΩ镍电阻温度传感器检测一个大空间的平均温度21℃,连接方式是2个串联后再并联,串并联后的电阻是()kΩ。
- 大叶性肺炎实变期一般出现在发病后()
- 汽车上的计算机不能够做以下哪些工作?()。
- 一般情况下,现场防爆防腐操作柱的进出线方向为(),电缆布线。
- 某女,28岁,未婚,闭经2年来院就诊。肛诊:子宫正常大小,女性第二性征发育正常。黄体酮试验阴性。下一步最佳检查方法是()
- 灭虱小时候用篦子梳去_死虮和虮卵,并洗发检查()