有下面事件过程:Private Sub Command1_Click( )a=5b=8For k=1To30c=b-aa=bb=cNext kPrint cEnd Sub上面事件过程执行后产生的输出是( )。 A. 3 B. 8 C. -5 D. -8 相关知识点: 试题来源: 解析 B 正确答案:B 解析:程序开始时,变量a赋值为5,变量b赋值为8;For循环一共执行30次,循环执行过...
Private Sub Command1_Click() a="AbC" b="dEF" c=UCase (a) +LCase (b)Print Asc (c)End Sub (分数:2.00) 填空项1:___(正确答案:65)相关知识点: 试题来源: 解析 【6】 解析:[解析]执行赋值语句a="AbC",将字符串"AbC"赋值给变量a;执行赋值语句b="dEF",将字符串"dEF"赋值给...
1在窗体上有一个命令按钮Command1,编写事件代码如下。 Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y) Debug.Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即...
在按钮单击事件“Command1_Click()”通过语句“s=p(1)+p(2)+p(3)+p(4)”调用函数并将函数结果用于计算,下面就来分析一下程序运行过程。 P(1)代入函数p的参数N=1,For循环运行1次。 i=1:Sum=0+1=1 所以P(1)=1。 P(2) 代入函数p的参数N=2,For循环运行2次。 i=1:Sum=0+1=1 i=2:Sum=...
编写如下程序:Private Sub Command1_Click( ) Dim a, b, c, c1, c2$ a = InputBox(“请输入一个字符串”) b = InputBox(“再输入另一个字符串”) c = ““ For k = 1 To IIf(Len(a) < Len(b), Len(b), Len(a)) c1 = IIf(k <= Len(a), Mid(a, k, 1), ““) c2 = IIf...
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。 Private Sub Command1_Click( ) Dim a a=Array(1,2,3,4,5) For k=1 To 4S=S+a(k) Next k Print S End Sub A. 10 B. 14 C. 15 D. 120 相关知识点: ...
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程: Private Sub Command1_Click( ) a=
A.0B.1C.2D.3 3在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序,三次单击命令按钮后,变量b的值是 ___。 A.0B.1C.2D.3 4在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub...
命令按钮Command1的单击事件过程如下: Private Sub Command1_Click( ) Dim a( 10, 10)As Integer x=0 For i = 1 To 3 For j = 1 To 3 a(i, j) =i * 2 Mod j If x<a(i, j)Then x=a(i, j) Next Next Print x End Sub 执行上述事件过程后,窗体上显示的是( )。 A) 1 B) 2 C...
Private Sub Command1_Click() a = Val(Text1.Text) b= a * a +1 Text1.Text = b End Sub 程序运行时(如图所示),在文本框Text1中输入2,连续两次单击命令按钮Command1后,Text1中显示的内容是( )A. 5 B. 10 C. 26 D. 2 相关知识点: 试题...