在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ (8) Sum=Sum+ (9) m=m+2 Loop While (10) Print Sum End Sub 该程序的功能是,单击命令按钮,则计算并输出以下表达式的值: 1+(1+3)+(1+3+5)+…+(1+3+5+
相似题目
-
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()X=0Do Until x=-1 a
-
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码;Option Base 1Private Sub Com
-
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:Private Sub Command1
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
-
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;Private Sub Command1_Click()a $
-
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在()处填入适当的内容,将程序补充完整。
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Comma
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Priva
-
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:priva
-
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c=
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivatSuCommand1_Click()。程序运行时,单击Command1,则在窗体上输出的结果是()
-
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:运行程序后单击命令按钮,在窗体上显示的是()
-
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click()Dim a As Integer,b As Integera=100b=200Print M(a,B) End Sub 程序运行后,单击命令按钮
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)As Integer M=IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End
-
在窗体上画—个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a$="National Computer Rank Examination" n=Len(a$) s=0 For i=1 To n b$=Mid(a$,i,1) Ifb$="n" Then s=s+1 End If Next i Print S End Sub 程序
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序; Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End Function Private Sub Commandl_Click()Dim a As Integer,b As Integera=100b=200PrintM(a,B) End Sub 程序运行后,单击命令按钮,
-
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:程序运行后,单击命令按钮,将显示一个输入对话框,如果在输入对话框中输入25,则程序的执行结果为()。
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() aS="National Computer Rank Examination" n=Len(a$) s=0 For i=1 To nb$=Mid(as,i,1)If b$="n"Then s=s+1End If Next i Print S End Sub 程序运行后