重要提示:请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
首页 > 自考
网友您好,请在下方输入框内输入要搜索的题目:
搜题
拍照、语音搜题,请扫码下载APP
扫一扫 下载APP
题目内容 (请给出正确答案)
[主观题]

窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:Private Sub Command1 Click()

窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:

Private Sub Command1 Click()

Static x As Variant

n=0

x=Array(1,2,3,4,5,6,7,8,9,10)

While n<=4

x(n)=x(n+5)

Print x(n):

n=n+1

Wend

End Sub

运行程序,单击命令按钮Command1,窗体上显示的是()。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

答案
查看答案
更多“窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:Private Sub Command1 Click()”相关的问题

第1题

在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:Private Sub Command1_Click() a=0

在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b+c End Sub 窗体打开运行后,如果单击命令按钮,则消息框的输出结果为______。

A.11

B.a=11

C.0

D.False

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:Private

在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。

A.1

B.5

C.27

D.45

点击查看答案

第3题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮, 一个名称为Label1的标签, 然后编写如下的事件过程:

Private Sub Command1_Click()

s = 0

For i = 0 To 15

X = 2 * i - 1

If X Mod 3 = 0 Then s = s + 1

Next i

Label

1.Caption = s

End Sub

程序运行后, 单击命令按钮, 则标签中显示的内容为

A.1

B.5

C.27

D.45

点击查看答案

第5题

在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编
写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。

A.Private Sub Text1_Change()

Command1.Caption = "计算机等级考试"

End Sub

B.Private Sub Command1_ Click ()

Caption = "计算机等级考试"

End Sub

C.Private Sub Form1_ Click ()

Text1.Caption = "计算机等级考试"

End Sub

D.Private Sub Command1_ Click ()

Text1.Text = "计算机等级考试"

End Sub

点击查看答案

第6题

在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序
: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Print c; d End Sub 程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是

A.abcEFG

B.abcefg

C.ABCefg

D.ABCEFG

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮, 然后编写如下事件过程:

Private Sub Command1_Click()

Dim a (10,10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

for j = 1 To 3

a (i, j) = (i – 1) * 3 + j

Print a(i, j );

next j

Print

next i

End Sub

程序运行后, 单击命令按钮, 窗体上显示的是______

A.1 2 3 2 4 6 3 6 9

B.2 3 4 3 4 5 4 5 6

C.1 4 7 2 5 8 3 6 9

D.1 2 3 4 5 6 7 8 9

点击查看答案

第8题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组,名称为cmdl,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(a)所示。通过属性窗口设置各命令按钮的属性,使得程序开始运行时,“停止”按钮不可见,“退出”按钮不可用,如图3(b) 所示。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为For(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮,和一个名称为CD1的通用对话框,如图4所示。请在属性窗口中设置CD1的属性,使得打开通用对话框时,其初始路径是“C:\”。再编写适当的事件过程,使得运行程序,分别单击“打开”或“保存”按钮时,相应地出现“打开”或“保存”对话框。要求程序中不得使用变量,每个事件过程中只能写一条语句。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为For

点击查看答案

第9题

在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本框,其中Tex
t1可多行显示。请画两个名称为Command1、Command2,标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下: ①单击“产生数组”按钮,则用随机函数生成10个0~100之间(不含0和100)互不相同的数值,并将它们保存到一准数组a中,同时也将这10个数值显示在Text1文本框内; ②单击“查找”按钮将弹出输入对话框,接收用户输入的任意一个数,并在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数“不存在于数组中”;否则显示该数在数组中的位置。 要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

在考生文件夹下有一个工程文件sjt5.vbp,其窗体上画有两个名称分别为Text1、Text2的文本

点击查看答案

第10题

已知在窗体上有一个文本框控件,它的名称为Text1,且输入的字符全部为数字,现在要把该字符转换为整
数送给整型变量C,所用到的语句是【 】。

点击查看答案

第11题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮
。程序运行后,在两个文本框中输入数据,当单个按钮时,标签Label1中显示运算的结果。程序的功能是计算,n!+(n+1)!+(n+2)!+…+(n+m)!。 请在【 】处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() Dim a,b,c,d As Double Dim i,n,m As Integer n=Val(Text1.Text):m=Val(【 】) a=0: b=1: c=0: d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案
下载APP
关注公众号
TOP
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案 购买前请仔细阅读《购买须知》
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《服务协议》《购买须知》
立即支付 系统将自动为您注册账号
已付款,但不能查看答案,请点这里登录即可>>>
请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
请用微信扫码测试
优题宝