网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（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
参考答案
更多 “ （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 ” 相关考题
考题
有如下程序: include using namespace std; int strle(char a[],char b[]) {int num=
有如下程序：include ＜iostream＞using namespace std;int strle(char a[],char b[]){int num=O,n=O;while (* (a+num) !='\0')num++;while (b [n] ){* (a+num)=b [n];num++;n++;}return(num);}int main (){char strl[80],str2[80],*p1=str1,*p2=str2;cin＞＞p1;cin＞＞p2;cout＜＜strle(p1,p2)＜＜end1;return 0;}运行上述程序，如果从键盘输入字符串qwerty和字符串abcd,则程序的输出结果是【 】。
考题
以下程序段：Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为()A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.5
考题
程序运行后，单击窗体，屏幕显示的结果是( )。 Private Sub Form_Click() num1="乙" num2=76 Select Case numl Case"甲" If num2＞=80 Then Print"德艺优秀" Else If num2＞=60 Then Print"德优秀，艺普通" End If Case"乙" If num2=80 Then Print"德艺双佳" ElselfnumA．德艺双佳B．德艺普通C．德优秀，艺普通D．德艺优秀
考题
在窗体上画—个名称为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．无数据输出
考题
当发生Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出______。 Option Explicit Private Sub Form. Click () Dim num As String * 1, n As Integer Open "C:\ Check. txt" For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End SubA．3 4B．4 5C．5 3D．3 3
考题
在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End SubA．20B．24C．9D．28
考题
在窗体上画一个名称为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．无数据输出
考题
在窗体画一个命令按钮，然后编写如下过程:Function fun(ByVal num As Long)As LoneDim k As Longk=1num=Abs (num)Do While numk=k*(num Mod 10)num=num\10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn= InputBox (“请输入一个数”)n=CLng (n)r=fun (n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【 】。
考题
下列程序的输出结果是______。 struct exmple { int x； int y； }num[2]=}1,2,3,2}； main() { printf("%d\n",num[1].y*num[0].x/num[1].x);}A．0B．1C．3D．6
考题
单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b,C)End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End FunctionA．21B．23C．19D．35
考题
单击一次命令按钮之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End FunctionA．15B．20C．35D．40
考题
下列程序段运行结果是______。Dim c As Integer,num As IntegerNum=29483Doc=num Mod 10Print c；num=num\10Loop While num＜＞0
考题
在窗体上画一个名称为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．无数据输出
考题
在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Print r End SubA．20B．24C．9D．28
考题
下列数据类型定义中，正确的是A．Type Student Num As Long Name As String End TypeB．Type Student Num As Integer Name As String * 10 End TypeC．Private Type Num As Long Score As Single End TypeD．Private Type Student Name As String Score(10)As String * 10 End Type
考题
先在窗体上添加一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long)As Long Dim k As Long k=1 num=Abs(nam) Do While num k=k*(num Mod 10) num=num\10 Loop Fun=k End Function PrivateSubCommandl_ClickA．0B．100C．200D．300
考题
有如下的一个函数过程：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
考题
下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 ______ Next i Close #1 End SubA．print #1,iB．input #1,iC．print #1D．input #1
考题
先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。A． 0B．100C．200D．300
考题
在窗体上画一个名称为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．无数据输出
考题
在窗体上画—个名称为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．无数据输出
考题
编写如下事件过程和函数过程： 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
考题
分析下面程序,哪一行代码能正确赋值?()class Demo {public void method() {final int num1 = 10;static int num2 = 20;abstract int num3 = 30;private int num4 = 40;}}
A.final int num1 = 10;B.static int num2 = 20;C.abstract int num3 = 30;D.private int num4 = 40;
考题
编写下列事件过程和函数过程：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
考题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Sub Command1_Click()num As Integer= 1Until num >6num;= num + 2.4Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )A、1 3.4 5.8B、1 3 5C、1 4 7D、无数据输出
考题
编写如下事件过程和函数过程： 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
热门标签
最新试卷