首页 > 计算机应用技术> 微机原理及应用

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

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

[主观题]

下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示【

】行数据，其中第2行和第3行的数据分别是【】和【】。 Option Base 1 Private Sub Command1_Click() Dim a， s As String，i As Integer a=Array(1，3，5，7，2，4，6，8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub

答案

查看答案

发布时间：2022-12-04

更多“下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示【”相关的问题

第1题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第2题

窗体中有一个命令按钮（Command1。其Click事件过程如下。 Private Sub Command1_Click（) Dim a（10,10) F

窗体中有一个命令按钮(Command1。其Click事件过程如下。

Private Sub Command1_Click()

Dim a(10,10)

For m=1 To 4

For n=3 To 5

a(m,n)=m*n

Next n

Next m

MsgB0x a(1, 3)+a(2, 4) +a(3, 5)

End Sub

窗体运行后，单击命令按钮，消息框输出的结果是______。

点击查看答案

第3题

窗体中有一个命令按钮Command1，其Click事件过程如下。 PriVate Sub Coranland1_Click（) For i=1 To 4 x=

窗体中有一个命令按钮Command1，其Click事件过程如下。

PriVate Sub Coranland1_Click()

For i=1 To 4

x=3

For j=2 To 3

x=3

For k=1 To 2

x=x+2

Next k

Next j

Next i

MsgBox x

End Sub

窗体运行后，单击命令按钮，消息框输出的结果是______。

点击查看答案

第4题

窗体中有一个命令按钮Command1。其Click事件过程如下。 Sub P（b（)As Integer) For i=1 to 4 b（i)=2*i

窗体中有一个命令按钮Command1。其Click事件过程如下。

Sub P(b()As Integer)

For i=1 to 4

b(i)=2*i

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 to 4)As Integer

For i=1 to 4

a(i)=i+4

Nexti

P a()

For i=1 to 4

MsgB0x a(i)

Next i

End Suk)

窗体运行后，单击命令按钮，消息框4次输出的结果分别是( )。

A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错

点击查看答案

第5题

在窗体中添加一个命令按钮，命名为Command1，然后编写如下程序：PrinvateSubCommand1_Click（)A=1234B=Str（A)C=Len（B)PrintCEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是（)

A.0

B.5

C.6

D.7

点击查看答案

第6题

窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Command1的单击事件过程中，正确的是()

A.private sub Command1_Click() Command2.Visible=true Command3.Visible=false

B.private sub Command1_Click() Command2.Enable=true Command3.Enable=false

C.private sub Command1_Click() Command2.Enable=true Command3.Visible=false

D.private sub Command1_Click() Command2.Visible=True Command3.Enable=False

点击查看答案

第7题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer, y As I

在窗体上画一个命令按钮，其名称为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 Integer a=100 b=200 Print M(a, B) End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第8题

有一个窗体Form1，其中有命令按钮Command1，现要求单击该按钮用VBA程序打开已有的数据表“学生”，正确的命令是( )。

A.DoCmd.OpenTable学生

B.DoCmd.OpenTable"学生"

C.DoCmd.OpenForm学生

D.DoCmd.OpenForm"学生"

点击查看答案

第9题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【】。

点击查看答案

第10题

有一个登录窗体Forlnl，窗体上有一个用于输入密码的文本框Textl和一个验证按钮Command1，已经设置单击该按钮后执行宏Macro1。以下能够正确运行宏MacrO1的操作是( )。

A.双击数据库窗口中的宏Macro1

B.单击登录窗体中的验证按钮Command1

C.在文本框Text1中输入密码后按＜Enter＞键

D.在VBA程序Module1中运行宏Macro1

点击查看答案

第11题

有一个登录窗体Forln1，窗体上有一个用于输入密码的文本框Textl和一个验证按钮Command1，已经设置单击该按钮后执行宏Macro1。以下能够正确运行宏Macro1的操作是( )。

A.双击数据库窗口中的宏Macro1

B.单击登录窗体中的验证按钮Command1