执行以下程序段,在窗体上显示的结果是___A__。PrivateSubForm_Click()DimSAsString,iAsIntegerS="ab"Fori=Len(S)To1Step-1PrintChr(Asc(Mid(S,i,1))+i)NextIEndSub
有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To5Forj=1Tois=s+jNextjp=p*sNextiPrintpEndSub程序运行后,单击窗体,则输出结果是______。(5.0分)
设有如下程序代码 : Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 , 则在窗体上显示的是 ________ 。
设窗体上有一个名称为 Option1 的单选按钮数组(其下标从 0 开始),共有 4 个单选按钮,并有下面事件过程: Private Sub Option1_Click(Index As Integer) n = Index If Index < 3 Then n = n + 1 Print Option1(n).Caption End Sub 程序运行时,单击其中一个单选按钮,则在窗体上显示的是 ________ 。
运行下面的程序,单击窗体后,从键盘上输入字符串6,窗体上显示的输出结果为________。PrivateSubForm_Click()DimnAsIntegerDims1AsStrings1=InputBox(输入一个字符串)n=Val(s1)PrintFact(n)EndSubPrivateFunctionFact(mAsInteger)AsLongDimsAsLongIfm=1Thens=1Elses=Fact(m-1)*mEndIfFact=sEndFunction
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后,单击命令按钮,消息框的输出结果是_____。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序,单击窗体,标签中显示的是________。
在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后,如果在文本框Text1中输入10,然后单击命令按扭,则在Text2中显示的内容是________。
设有如下程序:OptionBase1PrivateSubForm_Click()DimADimiAsIntegerA=Array(10,20,30,40,50,60,70,80,90)Fori=1To4PrintA(4+i);NextiEndSub程序运行后,单击窗体,则在窗体上显示的是________。(5.0分)
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() A =Inputbox(\Enter An Integer\) B =Inputbox(\Enter An Integer\) Text1.Text = B +A End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入4和56,则文本框中显示的内容是_______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后,单击命令按钮,在文本框中显示的值是______。(5.0分)
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。
程序运行后,单击窗体,在输入对话框中依次输入25、26、35、45,输出结果为______。PrivateSubForm_Click()x=50Fori=1To4y=InputBox(\请输入一个整数\)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub(5.0分)
有如下程序代码: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运行程序,单击窗体,输出结果是________。
窗体上有名称为Command1的命令按钮,名称分别为Label1、Label2、Label3的标签。编写如下程序:PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=8z=z+ny=y+nx=x+yLabel1=xLabel2=yLabel3=zEndSub运行程序时,连续3次单击命令按钮后,3个标签中分别显示的是________、_________、____________。
单击窗体时,下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x <
以下是宏m的操作序列设计: 条件 操作序列 操作参数 MsgBox 消息为“AA” [tt]>1 MsgBox 消息为“BB” … MsgBox 消息为“CC” 现设置宏m为窗体“fTest”上名为“bTest”命令按钮的单击事件属性,打开窗体“fTest”运行后,在窗体上名为“tt”的文本框内输入数字1,然后单击命令按钮bTest,则______。
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
在窗体上画一个名为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 程序运行后,单击命令按钮,输出的结果是______。
创建纵栏式窗体,可以在“数据库”窗口中的对象列表中单击“窗体”对象,再单击工具栏上的“新建”按钮,出现“新建窗体”对话框,从列表中选择______选项。
创建纵栏式窗体,可以在数据库窗口中的对象列表中单击窗体对象,再单击工具栏上“新建”按钮,出现“新建窗体”对话框,从列表中选择______选项。
当sub过程value形参表中存在byval关键字时,执行本程序,单击窗体在窗体上显示的第一行内容是_____; 若将形参表的byval关键字删掉,在执行本程序,单击窗体后在窗体上显示的第一行内容是_____;第二行内容是_____。 Private Sub value() Print "x=";x, "y=";y End Sub
在窗体上画一个名称为Commandl的命令按钮,然后编写如下: Private Sub Commandl_Click()Static X As Integer Static Y As Integer Cis Y=1 Y=Y+5 X=5+X Print X,Y End Sub 运行时,3次单击命令按钮Commandl后,窗体上显示的结果为____