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

搜题

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

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

[主观题]

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体

外观如图所示。设有如下的类型声明

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的当单击“保存”按钮时．将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的

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

查看官方参考答案

更多“窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体”相关的问题

第1题

在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer， n As Integer x = 1 n = 0 Do While x ＜ 20 x = x * 3 n = n + 1 Loop Text1．Text = Str(x) TextText = Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A．15和1

B．27和3

C．195和3

D．600和4

点击查看答案

第2题

1. 有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24…要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下： Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5 While d <= 1 1000 print d; a="b:" b="c:" c="d" d="a" + i="i" wend end sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是( )。 a．把while> 1000 B．把i = 5改为i = 4 C．把i = i + 1移到While d <= 1000的下面 d．在i="5的上面增加一个语句：Print" a; b;> A、A

B、B

C、C

D、D

点击查看答案

第3题

1. 能够存放组合框的所有项目内容的属性是( 　　)。 A) Caption B) Text C) List D) Selected

A、A

B、B

C、C

D、D

点击查看答案

第4题

1. 现有如下程序： Private Sub Command1_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox a End Sub 程序运行后，消息框输出的结果是( )。 A．3 B．4 C．5 D．6

A、A

B、B

C、C

D、D

点击查看答案

第5题

1. 阅读下面的程序段： A = 0 FOR I = 1 TO 3 FOR J = 1 TO I A = A+1 NEXT J Next I 执行上面的程序段后，A的值为( )。 A．3 B．5 C．6 D．9

A、A

B、B

C、C

D、D

点击查看答案

第6题

1. 现有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i Print sum End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5

A、A

B、B

C、C

D、D

点击查看答案

第7题

1. 在窗体上画一个名为Command 1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim b, k For k = 1 TO 6 b = 23+k Next k MsgBox b+k End Sub 运行程序，单击命令按钮，消息框输出结果是( )。 A．36 B．29 C．41 D．34

A、A

B、B

C、C

D、D

点击查看答案

第8题

1. 设有以下程序： Private Sub Form_Click() 　　x＝50 　　For i＝1 To 4 　　　　y＝InputBox("请输入一个整数") 　　　　y＝Val(y) 　　　　If y Mod 5＝0 Then 　　　　　　a＝a＋y 　　　　　　x＝y 　　　　Else 　　　　　　a＝a＋x 　　　　End If 　　Next i 　　Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为(　　)。 A. 100 B. 50 C. 120 D. 70

A、A

B、B

C、C

D、D

点击查看答案

第9题

1. 执行下面的程序段后，变量c的值为(　　)。 a = 29 b = 33 Select Case b\10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Case 10 To 99 c = a * 1000 + b End Select Print c A. 29 B. 2933 C. 33 D. 3329

A、A

B、B

C、C

D、D

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年全国各省自学考试时间及考试科目一览表 2024自考本科各省下半年报名具体时间一览表 2024年成人自考报名方式及考试时间自考本科需要考多少门课程才可以申请毕业证自考成绩一般什么时候可以查询自学考试需要考哪些科目具体有哪些内容本科自考2024年10月全国统一考试时间小自考一般考几科统考有哪些科目一般成人自考考完成绩什么时候能公布怎么查自考成绩查询方式有哪些

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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