首页 > 计算机等级考试

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

[主观题]

在窗体上画一个名为Command1的命令按钮，其Command1_Click事件过程如下：Sub Command1_Click（)Dim

在窗体上画一个名为Command1的命令按钮，其Command1_Click事件过程如下： Sub Command1_Click() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With ______ Put # 1，record_no，student Close # 1 End Sub 要求在c:\的随机文件student.dat写入一条记录。应在程序中空行处填入以下哪条语句使该功能完整

A．Open"c:\student.dat"For Input As # 1 len=len(student)

B．Open"c:\student.dat"For random As # 1 len=len(student)

C．Open"c:\student.dat"For Output As # 1 len=len(student)

D．Open"c:\student.dat"For Append As # 1 len=len(student)

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上画一个名为Command1的命令按钮，其Comman…”相关的问题

第1题

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1 Click（） D

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

Private Sub Command1 Click（） Dim a(10)As Integer Fork=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是（）。

A.18

B.12

C.8

D.6

点击查看答案

第2题

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框（其名称分别为Text1和Text2)，新建一

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。

A．a 1

B．a a

C．1 a

D．1 1

点击查看答案

第3题

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

在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．12

B．13

C．14

D．15

点击查看答案

第4题

在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置

为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。

A．abodefg

B．不显示任何信息

C．ABCDEFG

D．出错

点击查看答案

第5题

在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，

能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是（）。在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令

在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令

A. Input Print#1，Mid(Text1．Text，i，1)

B. Output Print#1，Mid(Text1．Text，i，1)

C. Outpat Print#1，LeR(Text1．Text，i，1)

D. Output Input#1，Mid(Text1．Text，i，1)

点击查看答案

第6题

在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事

件过程： Private Sub Command1_Click() CommonDialogl．FileName=“” CommonDialogl，Filter＝“All File｜*．*｜(*．DoC｜*．Doc｜(*．Txt)｜*．Txt” CommonDialogl．Filterlndex＝2 CommonDialogl．DialogTitle＝“VBTest” CommonDialogl．Action＝1 End Sub对于这个程序，以下叙述中错误的是

A．该对话框被设置为“打开”对话框

B．在该对话框中指定的默认文件名为空

C．该对话框的标题为VBTest

D．在该对话框中指定的默认文件类型为文本文件(*．Txt)

点击查看答案

第7题

在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显

示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。

2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。

要求：编写程序，以实现试题要求的功能。

注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示

点击查看答案

第8题

在窗体上画一个命令按钮（名称为Command1)，然后编写如下事件过程：Private Sub Command1_Click（)Di

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是______。

A．0

B．1

C．2

D．3

点击查看答案

第9题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（) a

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。

A．VVV

B．Vis

C．sic

D．11

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1 Click （)

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是()。

A．3

B．4

C．5

D．6

点击查看答案

长沙正则教育科技有限公司版权所有 ©2024

湘ICP备20014704号-1 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）