下列程序段运行后输出的结果是()。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
当下面程序运行后,单击窗体在对话框中输入10,则输出的结果是() Private Sub Form_Click() score=InputBox("输入") Select Case score CaseIs<10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ 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() 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
下面程序运行后的结果是( )。 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 Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub
写输出下面程序的运行结果 _ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i 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 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运行时的输出结果是( )。
下面程序: Function a(x) Static b As Integer b = b + x ^ 2 Print b End Function Private Sub Command1_Click() Dim c% c = a(2) End 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 程序运行后,单击命令按钮,输出的结果是______。
◑设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,'000,000.00') End Sub 程序运行后,单击窗体,输出结果为【 】。
工程中有两个普通窗体From1和From2,其中From1中有一个按钮,启动程序后,单击From1中的按钮,输出结果为(). Private Sub Command1_Click() Print"A" Form. 2.Show vbModal Print"B" End Sub
计算霄的近似值的一个公式是。某人编写下面的程序用此公式计算并输出π的近似值:Private Sub Command1_Click()PI=1Sign=1n=20000For k=3 To nsign=-signPI=PI+sign/kNext kPrint PI*4End sub运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是()
执行下面程序,第一行输出结果是 (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
下列程序运行后,输出结果为______。 Sub abcd(ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click() n%=3 Call abcd(n%) Print n% End Sub
下面运行程序后,单击命令按钮,输出的结果是 【9】 。 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1,s2For i=1 To 4 a(i)=iNextFor i=3 To 6 b(i)=iNext s1.= Fun(a) s2 =Fun(b) Print "s1 ="; s1; "s2 ="; s2 End Sub Fu
下面程序段的作用:在窗体上一个命令按钮。单击命令按钮后,将程序中字符串 "Welcome Home"中的字符全部大写输出,其后字符"Wel Back"全部小写输出。请填空。 Private Sub Command1_Click() a = "Welcome Home"; b = "Wel Back" c = 【8】 + LCase(b) Print c End Sub
下面程序运行时,若输入395,则输出结果是_______________。 Private Sub Command1_Click() Dim x% x = InputBox("请输入一个3位整数") Print x Mod 10, x 100, (x Mod 100) 10 End Sub
下面程序运行后,单击命令按钮,输出的结果是Private Sub Command1_Click()Dim a%(1 To 4) , b%(2 To 6) , i%, str1, str2 For i = 1 To 4a(i) =i Next For i = 2 To 6b(i) =i Next str 1 = YAG (