单选题窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpenCD1.FileNameForInputAs#1MsgBoxCD1.FileNameLineInput#1,sText1.Text=sClose#1EndSub单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中,以下叙述中正确的是()。
单选题在窗体上画一个名称为Command1的命令按钮,然后编写下列事件过程:
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print ______
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示下列内容:
1
12
123
1234
则在横线处应填入的内容为______。
单选题以下关于控件的叙述中,正确的是
单选题若某链表最常用的操作是在最后一个结点之后插入一个结点或删除最后一个结点,则采用______存储方式最节省时间。
单选题单击命令按钮时,下列程序代码的执行结果为 Public Sub Procl(n As
Integer,ByVal m As integer) n=n Mod 10
m=m/10 End sub Private Sub
Commandl_Click() Dim x AS Integer,y AS Integer
x=12:y=24 Call Procl(x,y) Print x;y
End sub
A. 12 24
B. 2 24
C. 2 3
D. 12 2
单选题设组合框 Combo1 中有 5 个项目,则以下能删除最后一项的语句是( )
单选题在窗体上添加一个文本框Text1,然后编写下列Load事件过程,则程序运行结果是( )。 Private Sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End Sub
单选题窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF& "&HFF&为红色
Else
Text1.ForeColor=&HC000& "&HC000&为绿色
End If
End Sub
以下叙述中正确的是______。
单选题Microsoft Visual Basic 6.0包括三种版本,其中不包括 ______。
单选题软件需求规格说明书的作用不包括
单选题要使一个命令按钮成为图形命令按钮,则应设置其______属性值。
单选题在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:Private X As IntegerPrivate Sub Commandl_Click() Private Sub proc(a As Integer, X=5:Y:3 ByVal b As Integer) Call proc(X,Y、) X:a*a:Y=b+b Label1.Caption=X End Sub Label2.Caption=YEnd Sub程序运行后,单击命令按钮,则两个标签中显示的内容分别是
单选题在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Text2.Text="’’ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是 A) BeijingChina B) China C) Beijing D) BeijingC
单选题在窗体上绘制一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后,单击命令按钮,在窗体上显示的是( )。
单选题以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是
单选题Visual Basic的主窗口中不包含______ 。
单选题设程序中有以下语句:MsgBox"Visual","Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
单选题下列程序的执行结果为 a=100 b=50 If a<>b Then a=a+b Else b=b-a Print a,b
单选题在工程中的标准模块中定义了如下数据类型: Type fruit orange As Integer apple As Integer End Type 在窗体上有—命令按钮Command1,要求当单击命令按钮时在C:/根目录下的顺序文件myfrtac.txt 中写入一条记录,下列能够完成改操作的事件过程是______ 。
单选题在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序: Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text=" " Text2.Text=" " Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S1 Text2.Text=S2 S1=" " S2=" " End Sub 程序运行后,先后按“a”、“b”、“c”键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为( ) A.abc和ABC B.空白 C.ABC和abc D.出错
