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

搜题

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

提问人：网友deamongel 发布时间：2022-01-07

[主观题]

在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码；P

在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ()

A．Open "datl. dat", For lnput As#1 Write井1,S

B．Open"datl. dat" For Output As#1 Write#1, S

C．Open"dat", For Binary As #1 Write #1, S Close #1

D．Open datl. dat"For Random As #1 Write #1, S Close #1

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码；P”相关的问题

第1题

在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() 　　Dim s As Integer 　　s = P(1)+ P(2)+ P(3)+ P(4) 　　debug.Print s End Sub Public Function P(N As Integer) 　　Dim Sum As Integer 　　Sum = 0 　　For i = 1 To N 　　　　Sum = Sum + i 　　Next i 　　P = Sum End Function 打开窗体运行后，单击命令按钮，输出结果是(　　)。

A、15

B、20

C、25

D、35

点击查看答案

第2题

在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click() A=InputBox("请输入日期(1～31)") t="旅游景点:" & IIf(A＞0 And A＜=10,"长城","")_ & IIf(A＞10 And A＜=20,"故宫","")_ & IIf(A＞20 And A＜=30,"颐和园","") Text1.Text=t End Sub 程序运行后，如果从键盘输入5，则在文本框中显示的内容是()。

A．旅游景点：长城

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案

第3题

在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：

Private Sub Command1 click()

A=InputBox("请输入日期(1～31)")

t="旅游景点："_

&Ⅱf(A＞0 And A＜=10,"长城","")_

&Ⅱf(A＞10 And A＜=20,"故宫","")_

&Ⅱf(A＞20 And A＜=30,"颐和园","")

Text1.Text=t

End Sub

程序运行后，如果从键盘输入5，则在文本框中显示的内容是()。

A．旅游景点：长城

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案

第4题

在窗体上添加一个命令按钮Command1，一个文本框Text1，编写如下程序：

Function result(ByVal x As Integer)As Boolean

If x Mod 2=0 Then

result=True

ElSe

result=False

End If

End Function

Private Sub Command1_Click()

x=Val(InputBox("请输入一个整数"))

If______Then

Textl=Str(x)&"是偶数."

ElSe

Text1=Str(x)&"是奇数."

End If

End Sub

程序运行后单击命令按钮，在输入对话框中输入19，则在Text1中显示“19是奇数”。那么程序的空白处应填写( )。

A．result(x)="偶数" B．result(x)="奇数"

C．result(x)D．NOT result(x)

点击查看答案

第5题

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。

Private Sub Command1_Click()

Dim i As Integer,s As String

s="首都经济贸易大学"

For i=1 To b Step 2

Text1=Text1&Mid(s,i,1)

Next i

End Sub

窗体运行后，单击命令按钮Command1，Text1中显示的是______。

点击查看答案

第6题

在窗体中有一个命令按钮Command1和一个文本框Text1，事件代码如下： Private Sub Command1_Click( ) For i = l To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next i Text1.value = Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是______。

A、6

B、12

C、18

D、21

点击查看答案

第7题

当执行以下过程时，在窗体上将显示（）。 Private Sub Command1_Click() Print "VB" Print "Hello!"; Print "VB" End Sub

A、VB Hello! VB

B、VBHello!VB

C、VB Hello! VB

D、VB Hello! VB

点击查看答案

第8题

执行语句“x=MsgBox("数据类型不匹配",1,"出错提示！")”，然后单击消息框中的“取消”按钮，x的值是（）。

A、True

B、False

C、1

D、2

点击查看答案

第9题

下列语句中正确的是（）。

A、MsgBox vbOKOnly, "Error"

B、MsgBox "Error", vbOKOnly

C、MsgBox(VbOkOnly,"Error")

D、MsgBox ("Error",VbOkOnly)

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

成人自考专科2024年报名时间及考试时间 2024年广东自考还能报名吗考哪些内容 2024年各省下半年自学考试报名时间已确定 2024广东自考怎么报名报名流程是什么 2024年广东自考专科报名流程报考条件有哪些 2024自考大专报名时间和网上报名入口自考本科2024年什么时候开始报名具体时间安排全国2024年10月各地自考报名及考试时间广东自考本科2024年报名时间及考试时间 2024年10月自考报名截止时间及考试时间安排

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次