题目内容

有下面程序代码：Private Sub Command1_Click()Dim a As Stringa="COMPUTER "n=search(a,"E")Print IIF(n=0,"未找到",n)End SubPrivate Function search(str As String,ch As String) As IntegerFor k=1 To Len(str)c=Mid(str,k,1)If c=ch Thensearch=kExit FunctionEnd IfNext ksearch=0End Function程序运行后，单击命令按钮Command1，输出结果是___________。

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序:Private Sub Command1_Click()Dim x,y,z As Integerx = 3y = 4z = 5Text1.Text = ""Call P1(x,y,z)Text1.Text= Str(z)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c = a +bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是___________。

有下面程序代码：Private Sub Command1_Click()Dim x As Integer,s As Integerx=1For k=1 To 3x=x+2proc xs=s+xNext kPrint sEnd SubPrivate Sub proc(ByVal a As Integer)Static x As Integerx=x+5a=a+xEnd Sub程序运行后，单击命令按钮Command1，输出结果是___________。

设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 30y = 8f = x * yEnd Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程Private Sub Command1_Click()Static x As Integerx = 15y = 6y = f(x)Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

窗体上有名称为Command1的命令按钮，名称分别为Label1、Label2、Label3的标签。编写如下程序：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=8z=z+ny=y+nx=x+yLabel1=xLabel2=yLabel3=zEnd Sub运行程序时，连续3次单击命令按钮后，3个标签中分别显示的是____、_、________。