题目内容（请给出正确答案）

[主观题]

有如下事件过程，程序的功能是（)。 Private Sub Commandl _Click （) S1=0: S2=0 M1=0: M2=0 N=

有如下事件过程，程序的功能是()。 Private Sub Commandl _Click () S1=0: S2=0 M1=0: M2=0 N=1 Do while N<=100 a=int(101* rnd) if a mod 2=0 then s1= s1+a : m1=m1+1 else s2= s2+a : m2=m2+1 end if n=n+1 loop print s1,s2 print m1,m2 end sub

：A. 求101以内奇数之和

B. 求101以内偶数之和

C. 随机产生100个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和

D. 随机产生101个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“有如下事件过程，程序的功能是（)。 Private Sub …”相关的问题

第1题

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：Pr

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：

Private Sub Command1 Click（）

XzInputBox("输入X："，，0)

y=InputBox("输入y："，，0)

Label1．Caption=x+y

End Sub

运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（）。

A.程序运行有错误，数据类型不匹配

B.程序运行有错误，InputBox函数的格式不对

C.在Label1中显示5

D.在Label1中显示23

点击查看答案

第2题

在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Pr

在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a(10,10)As Integer

Dim i,j As Integer

For i=2 To 4

For j=3 To 6

Next i

Text1.Text=a(2,3)+a(4,6)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是()。

点击查看答案

第3题

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程：Pr

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

A．visual basic

B．VISUAL BASIC

C．basic

D．BASIC

点击查看答案

第4题

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：程序执行时，单击命

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：程序执行时，单击命在窗体上有

程序执行时，单击命令按钮，实现的功能是（）。

A.命令按钮移动到距窗体左边界、上边界各500的位置

B.命令按钮向左、上方向各移动500

C.窗体移动到距屏幕左边界、上边界各500的位置

D.窗体向左、上方向各移动500

点击查看答案

第5题

练习1.请写出下列事件过程：单击窗体，将窗体的标题（Caption）设为“第一次编程！”。提示：对象是窗体，事件是单击，事件功能是修改窗体的标题栏。代码如下： • Sub Form_Click（) Form1.Caption = "第一次编程！" End Sub 本题答案请上传程序运行结果截图

点击查看答案

第6题

窗体上有一个名称为Commandl的命令按钮，其单击事件过程及相关的函数过程如下：关于上述程序，以下

A.A.程序功能是统计1-500范围内能被7整除的整数个数

B.B.Commandl_Click事件过程中If语句的条件表达式不完整

C.C.Function过程定义有误，函数过程P的名称与该过程中的变量名P相同

D.D.函数过程P的返回值为Boolean类型

点击查看答案

第7题

（12）在程序的每个空白处填写一条适当的语句，使程序相应的操作。程序实现的功能是：窗体上有文本框T

extl和若干复选框，其中复选框Checkl用于设置文本框Textl显示的文本是否加下划线。Checkl的单击事件过程如下：Private Sub Check() If Then Then.FontUnderline=True ElseIf _____Then Then.FontUnderline=False End If End Sub

点击查看答案

第8题

窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下：以下关于上述程序的叙述中，错误的是A

A.A.程序的功能是将f2.txt文件的内容复制到fl.txt中

B.B.f1.txt和f2.txt均是顺序文件

C.C.EOF函数可以判断是否已到文件的末尾

D.D.Close能够把打开的两个文件都关闭

点击查看答案

第9题

（11 ）有 “ 数字时钟 ” 窗体如下：在窗口中有按钮 “ [ 开／关〕时钟 ” ，单击该按钮可以显示或

（11 ）有 “ 数字时钟 ” 窗体如下：

（11 ）有 “ 数字时钟 ” 窗体如下：在窗口中有按钮 “ [ 开／关〕时钟 ” ，单击