以下程序的运行结果是( )。Private Sub Command1_Click()a = 1: b = 2Print \A=
相似题目
-
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Private Sub Command1_Click() Static x As Integer Stati cy As Integer y=1 y=y+5 x=x+5 Printx;y End Sub 程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为()
-
下列程序段运行后输出的结果是()。 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 运行后输出结果为()
-
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()Dim nx%nx = 3Call abcd(nx)Print nxEnd SubPrivate Sub abcd(n As Integer)n = n + 5End Sub
-
下面程序运行后的结果是( )。 Public sub f1(n%,byval m%) N=n mod 10 M=m\\10 End sub Private sub command1_click( ) Dim x%,y% X=12 Y=34 Call f1(x,y) Print x,y End sub
-
下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
-
Option Base 1Private Sub Command1_Click()Dim a$(), s$s = InputBox(\请输入用英文逗号分开的数据\)a = Split(s, \,\)Print a(Ubound(a)+Lbound(a)-1)End Sub程序运行后,单击命令按钮,在输入对话框中输入12,A,2,b,c则输出结果是()。
-
下列程序代码的运行结果为( )。 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
-
下列程序:Option Base 1Private Sub Form_Click()Dim a(5,5)For i = 1 To 5For j = 1 To 5k = k + 1a (i,j)= kNext jNext iFor i = 1 To 5s = s + a (i,i)Next iPrint sEnd Sub运行时的输出结果是( )。
-
有如下程序代码:Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序,单击窗体,输出结果是________。
-
编写如下程序:Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后,单击命令按钮Command1,输出结果为(______)。
-
下面程序执行时,输出的结果是()。Private Sub Form_Click()DimiASInteger,j As Integeri=10Doi=i+
-
在窗体上画一个名为Command1的命令按钮,编写如下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后,单击命令按钮,输出的结果是______。
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Public Enum S a=4 b=3 End Enum Private Sub Command1 Click() Dim x As Integer x=a If x>=3 Then MsgBox"Pass!" End Sub 运行程序,其结果是()。
-
◑设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,'000,000.00') End Sub 程序运行后,单击窗体,输出结果为【 】。
-
计算霄的近似值的一个公式是。某人编写下面的程序用此公式计算并输出π的近似值:Private Sub Command1_Click()PI=1Sign=1n=20000For k=3 To nsign=-signPI=PI+sign/kNext kPrint PI*4End sub运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是()
-
下列程序段的执行结果为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
-
程序如下: Private Sub Form_Click()Const PI=3.14159Dim r As Single,S As SingleR=InputBox("请输入圆的半径","输入数据","50")S = PI*r*rPrint "S=";Format(S,",.") End Sub 程序运行后,单击窗体,将显示一个输入对话框,输入数据35,单击“确定”按钮后,输出结果为 【9】 。
-
下面程序运行时,若输入395,则输出结果是_______________。 Private Sub Command1_Click() Dim x% x = InputBox("请输入一个3位整数") Print x Mod 10, x 100, (x Mod 100) 10 End Sub
-
有如下函数过程: Function Fun(By Val x As Ingeger,ByVal y As Integer) As Integer DO While …y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim
-
有下列程序,运行后变量x1、y1和z1的结果分别是 (13) 、 (14) 和 (15) 。 Private Sub fun1(s, m, n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form_Click() Dim x1, y1 x1 = 1 : y1 = 1 : z1 = 1 Call fun1(x1, y1 + 1, (z1))
推荐题目
- 以下对新申证企业试生产的规定,不正确的是()。
- 根据冯友兰的观点,朱熹的思想类似于新实在主义。
- 原料表面清理时,()清理方法易造成钢发生氢脆。
- 保险公司介入灾害事故的全过程,为维护良好的社会关系创造了有利条件,体现了保险的:
- 下列清真寺属于伊斯兰建筑风格的是:
- 对分泌含氮激素细胞的描述,哪一项错误
- 海外(来华)游客仅指拥有外国国籍的人和加入外籍的中国血统的华人。
- 《辛亥革命时的乡居记闻》中写道最滑稽的是,我们这穷乡僻壤里也闹什么民主党、共和党。许多秀才、举人、绅士老爷、乡下的读书人又找到新的出路了,有的参加民主党,有的参加共和党,还有的来了个双保险,民主党共和党都加了。 ”这反映了 ()
- 依赖Ca<sup>2+</sup>的蛋白激酶是( )
- 女,36岁。间断腹痛、腹泻5年,大便3~5次/日,带黏液,无脓血,便后胀痛缓解,受凉及紧张后症状加重,无发热,抗生素治疗无效。体重无减轻,粪隐血试验阴性。为确定诊断,首选的检查是A、结肠镜