网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
编写下列事件过程和函数过程：
Private Sub Commandl Click()
Dim num(1 To 6)As Single
num(1)=103:num(2)=190:num(3)=0
num(4)=32:num(5)=-56:num(6)=100
Print p2(6,num())
End Sub
Private Function p2(ByVal n As Integer,number()As Single)As Integer
p2=number(1)
For j=2 To n
If number(j)＜p2 Then p2=number(j)
Next j
End Function
程序运行后，在窗体上输出( )。
A．-56
B．0
C．103
D．190
参考答案
更多 “ 编写下列事件过程和函数过程：Private Sub Commandl Click()Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num())End SubPrivate Function p2(ByVal n As Integer,number()As Single)As Integerp2=number(1)For j=2 To nIf number(j)＜p2 Then p2=number(j)Next jEnd Function程序运行后，在窗体上输出( )。A．-56B．0C．103D．190 ” 相关考题
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9
考题
（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25
考题
（26）编写下列事件过程和函数过程Private Sub Command1_Click() Dim num（1 TO 6）As Single Num(1)=103:Num(2)=190:Num(3)=0: Num(4)=32:Num(5)=-56:Num(6)=100: Print Print p2(6,num()) End Sub Private Function p2(By Val n Integer,number()As Single)As Integer P2=number(1) For j=2 To n If number(j)p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出 A.-56 B.0 C.103 D.190
考题
（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub
考题
设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 Te1Num As String *20End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。A．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Output As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Write #1,B.Name,B.Te1Num Close #1 End SubB．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Input As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Prite #1,B.Name,B.Te1Num Close #1 End SubC．Private Sub Command1_Click() Dim B As Books Open"c":\Person.txt"For Output As #1 B.Name=InputBox（"输入姓名"） B.Te1Num=InputBox（"输入电话号码"） Write #1,B Close #1 End SubD．Private Sub Command1_Click() Open"c":\Person.txt"For Input As #1 Name=InputBox（"输入姓名"） Te1Num=InputBox（"输入电话号码"） Prite #1,Name,Te1Num Close #1 End Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753
考题
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_________。A．13.45.8B．1 3 5C．147D．无数据输出
考题
在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )A．0B．1C．2D．3
考题
编写如下通用过程： Sub Proc(x As Single,y As Single) t=x x＝t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a As Single Dim b As Single a＝5 b＝4 Proc a,b Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为A．5 4B．1.25 1C．4 5D．1.25 5
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．13.45.8B．1 3 5C．1 4 7D．无数据输出
考题
窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是A．Private Sub Forml_Click() … End SubB．Private Sub Form_Click() … End SubC．Private Sub Commandl_Click() … End SubD．Private Sub Command_Click() … End Sub
考题
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：Private Sub Commandl Click()Dim P As Integerp=m(1)+m(2)+m(3)Print PEnd SubPrivate Function m(n As Integer)As IntegerStatic s As IntegerFor k=1 To ns=s+lNextm=sEnd Function运行程序，单击命令按钮Commandl后的输出结果为
考题
在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。A． ABCDEB．1 2 3 4 5C．abcdeD．出错信息
考题
设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．SetFocus Commandl．SetFocus End Sub End sub
考题
以下( )事件过程可以将打开的对话框的标题改变为“新标题”。A．Private Sub Commandl_Click() Common Dialog1.DialogTitle="新标题" Common Dialog1.ShowFont End SubB．Private Sub Commandl_Crick() CommonDialog1.DialogTifie="新标题" CommonDialog1.ShowOpen End SubC．Private Sub Commandl_Click() Common Dialog1.DialogTitle="新标题" Common Dialog1.ShowClose End SubD．Private Sub Commandl_Click() CommonDialogl.DialogTitle="新标题" CommonDialogl.ShowColor End Sub
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Dim num As Integer num=1 DO Until mum＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．1 3.4 5.8B．1 3 5C．1 4 7D．无数据输出
考题
有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num\10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd SubA．12B．6C．3D．1
考题
在窗体上添加一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0Private Sub Commandl_Click（） Dim cityAs VariantCity=．Array（"北京"， "上海"，"天津”， "重庆"）Print city（1）End Sub程序执行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.空白B.错误提示C.北京D.上海
考题
在窗体中添加了一个文本框和一个命令按钮（名称分别为Textl和Commandl），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为"Access模拟”。以下能实现上述操作的事件过程是（ ）。A.Private Sub Commandl．Click（ ） Caption=”Access模拟”Commandl．B.Private Sub Textl click（ ） Caption=”Access模拟”EndSubEndSubC.Private SUb Commandl Change（ ） Caption=”Access模拟”Commandl．D.Private Sub Textl_Change（ ） Caption=”Access模拟”End SubEnd Sub
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。A．13.45.8B．1 3 5C．147D．无数据输出
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。A．135B．357C．531D．753
考题
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 DO Until num＞6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．13.45.8B．1 3 5C．1 4 7D．无数据输出
考题
有如下Sub过程： Sub Sun(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上的命令按钮Command1中，编写如下事件过程，执行该事件过程调用Sun过程，结果为( )。 Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a, b Print a; b End SubA．1.25 1B．5 4C．4 5D．1 1.25
考题
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
考题
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:num(5)=-56：num(6)=100 Print Print p2(6，num()) End Sub Private Function p2(By Val n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。A．-56B．0C．103D．190
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim a (1 To 10)Dim p(1 To 3)k=5For i=1 To 10a(i)=iNextiFori=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是【 】。
考题
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub
热门标签
最新试卷