要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。

单项选择题

执行下列程序段后，输出的结果是( )。
Forkl=0 To 4
y=20
For k2=0 To 3
y=10
Fork3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y

A．90
B．60
C．40
D．10

单项选择题

设菜单中有一个菜单项为“Open"。若要为该菜单命令设置访问键，即按下Alt键及字母 O时，能够执行“Open”命令，则在菜单编辑器中设置“Open'’命令的方式是( )。

A．把Caption属性设置为&Open
B．把Caption属性设置为O&pen
C．把Name属性设置为&Open
D．把Name属性设置为O&pen

单项选择题

执行以下Commandl的Click事件过程，在窗体上显示( )。
Option Base 0
Private Sub Commandl_Click()
Dima
a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g")
Printa(1);a(3);a(5)
End Sub

A．abc
B．bdf
C．ace
D．出错

单项选择题

可以用InputBox函数产生“输入对话框”。执行语句“st$=(hputBox(“请输入字符串”，“字符串对话框”，“字符串”)”时，当用户输入完毕，按OK按钮后，stS变量的内容是( )。

A．字符串
B．请输入字符串
C．字符串对话框
D．用户输入的内容

单项选择题

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

A．VVV
B．Vis
C．sic
D．11

单项选择题

下列( )符号不能作为VB中的变量名。

A．ABCabc
B．b1234
C．28wed
D．crud

单项选择题

下列字符串常量中，最大的是( )。

A．"北京"
B．"上海"
C．"天津"
D．"广州"

单项选择题

如果要在菜单中添加一个分隔线，则应将其Caption属性设置为( )。

A．=
B．*
C．&
D．-

单项选择题

窗体在屏幕上显示后有( )方法可以清除它。

A．1种
B．2种
C．3种
D．4种

单项选择题

设已打开5个文件，文件号为1，2，3，4，5。要关闭所有文件，以下语句正确的是( )。

A．Closeg1,2,3,4,5
B．Close#1；#2，#3，#4；#5
C．Close#1-#5
D．Close

单项选择题

以下能在窗体Forml的标题栏中显示“Visual Basic窗体”的语句是( )。

A．Forml.Namer="VisualBasic窗体"
B．Forml.Title="VisualBasic窗体"
C．Forml.Caption="VisualBasic窗体"
D．Forml.Text="VisualBasic窗体"

单项选择题

执行了下面的程序后，组合框中数据项的值是( )。
PrivateSubForm_Click()
Fori=1 To 6
Comb01.Addltem i
Nexti
Fori=1 To 3
Combol．Removeltem i
Nexti
End Sub

A．1 5 6
B．1 3 5
C．4 5 6
D．2 4 6

单项选择题

下列符号常量的声明中，( )是不合法的。

A．Const a As Single=1.1
B．Const As Integer="12"
C．Const a AS Double=Sin(1)
D．Const a="OK"

单项选择题

关于创建通用过程的方法叙述正确的是( )。

A．双击窗体打开的“代码编辑窗口”中不能创建通用过程
B．创建通用过程一定要使用Sub关键字
C．选择“工具”下拉菜单中的“添加过程”命令才能创建通用过程
D．在“代码编辑窗口”中即可以建立事件过程，也能建立通用过程

单项选择题

运行下列程序段后，显示的结果为( )。
J1=23
J2=32
If J1＜J2 Then Print J2 Else Print Jl

A．23
B．32
C．55
D．2332

单项选择题

把窗体设置为不可见的，应该将( )属性设置为False。

A．Font
B．Caption
C．Enable
D．Visible

单项选择题

下列能正确产生[1，30]之间的随机整数的表达式是( )。

A．1+md(30)
B．1+30*md()
C．md(1+30)
D．int(md()*30)+1

单项选择题

要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。

A．Option Base 0
B．Option Explicit
C．Option Base 1
D．Option Compare

单项选择题

设有语句：Open"d:\Test.txt"ForOutput As#1，以下叙述中错误的是( )。

A．若d盘根目录下无Test.txt文件，则该语句创建此文件
B．用该语句建立的文件的文件号为1
C．该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息
D．执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息

单项选择题

Int(100*Rnd(1)'产生的随机整数的闭区间是( )。

A．[0,99]
B．[1,100]
C．[0,100]
D．[1,99]

单项选择题

在程序运行期间属性值不允许改变的属性是( )属性。

A．Caption
B．Name
C．BackColor
D．Enabled

单项选择题

确定一个控件在窗体上的位置的属性是( )。

A．Width和Height
B．Width或Height
C．Top和Left
D．Top或Left

单项选择题

语句Print5/4*6\5Mod2的输出结果是( )。

A．0
B．1
C．2
D．3

单项选择题

假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是( )。

A．选择图片框，然后按Del键
B．执行语句Picture 1.Picture=Load Picture("")
C．执行语句Picture1.Picture=""
D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键

单项选择题

在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。
Private Sub Command4_Click()
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x＞y，x，y)
End Funcfion

单项选择题

先在窗体上添加一个命令按钮，然后编写如下程序：
Function fun(ByValnum As Long)As Long
Dim k As Long
k=1
num=Abs(nam)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
Fun=k
End Function
PrivateSubCommandl_Click()
Dim n As Long
Dim r As Long
n=InrputBox(“请输入一个数”)
n=CLng(n)
r=-fun(n)
Printr
End Sub
在程序运行后，单击命令按钮，在对话框中输入“100”，输出结果是( )。

A．0
B．100
C．200
D．300

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a(5)As String
Fori=1 To 5
a(i)=Chr(Asc("A")+(11))
Nexti
For Each b In a
Print b
Next
End Sub
程序运行后，单击命令按钮，输出结果是( )。

A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息

单项选择题

在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_Key Up(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为( )。

要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。

你可能感兴趣的试题

执行下列程序段后，输出的结果是( )。 Forkl=0 To 4 y=20 For k2=0 To 3 y=10 Fork3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y

设菜单中有一个菜单项为“Open"。若要为该菜单命令设置访问键，即按下Alt键及字母 O时，能够执行“Open”命令，则在菜单编辑器中设置“Open'’命令的方式是( )。

执行以下Commandl的Click事件过程，在窗体上显示( )。 Option Base 0 Private Sub Commandl_Click() Dima a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Printa(1);a(3);a(5) End Sub

可以用InputBox函数产生“输入对话框”。执行语句“st$=(hputBox(“请输入字符串”，“字符串对话框”，“字符串”)”时，当用户输入完毕，按OK按钮后，stS变量的内容是( )。

语句Print Sgn(-5.1^2)+Abs(Int(-5.1^2))的输出结果是( )。

不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是 ( )。

保存一个工程至少应保存两个文件，这两个文件分别是( )。

工程资源管理器窗口中包含的文件类型有( )种。

以下能判断是否到达文件尾的函数是( )。

下列对象不能响应Crick事件的是( )。

要清除列表框中所有的列表项时，应使用( )方法。

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

下列( )符号不能作为VB中的变量名。

下列字符串常量中，最大的是( )。

如果要在菜单中添加一个分隔线，则应将其Caption属性设置为( )。

窗体在屏幕上显示后有( )方法可以清除它。

设已打开5个文件，文件号为1，2，3，4，5。要关闭所有文件，以下语句正确的是( )。

以下能在窗体Forml的标题栏中显示“Visual Basic窗体”的语句是( )。

执行了下面的程序后，组合框中数据项的值是( )。 PrivateSubForm_Click() Fori=1 To 6 Comb01.Addltem i Nexti Fori=1 To 3 Combol．Removeltem i Nexti End Sub

下列符号常量的声明中，( )是不合法的。

关于创建通用过程的方法叙述正确的是( )。

运行下列程序段后，显示的结果为( )。 J1=23 J2=32 If J1＜J2 Then Print J2 Else Print Jl

把窗体设置为不可见的，应该将( )属性设置为False。

下列能正确产生[1，30]之间的随机整数的表达式是( )。

要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。

设有语句：Open"d:\Test.txt"ForOutput As#1，以下叙述中错误的是( )。

Int(100*Rnd(1)'产生的随机整数的闭区间是( )。

在程序运行期间属性值不允许改变的属性是( )属性。

确定一个控件在窗体上的位置的属性是( )。

语句Print5/4*6\5Mod2的输出结果是( )。

假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是( )。

在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。 Private Sub Command4_Click() Dima As Integer,bASInteger a=1 b=2 PrintN(a,b) End Sub Function N(X As Integer,yAsInteger)AsInteger N=IIf(x＞y，x，y) End Funcfion

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。

执行下列程序段后，输出的结果是( )。
Forkl=0 To 4
y=20
For k2=0 To 3
y=10
Fork3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y

执行以下Commandl的Click事件过程，在窗体上显示( )。
Option Base 0
Private Sub Commandl_Click()
Dima
a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g")
Printa(1);a(3);a(5)
End Sub

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

执行了下面的程序后，组合框中数据项的值是( )。
PrivateSubForm_Click()
Fori=1 To 6
Comb01.Addltem i
Nexti
Fori=1 To 3
Combol．Removeltem i
Nexti
End Sub

运行下列程序段后，显示的结果为( )。
J1=23
J2=32
If J1＜J2 Then Print J2 Else Print Jl

在窗体上画一个命令按钮，然后编写如下程序。运行后，单击命令按钮，输出结果为 ( )。
Private Sub Command4_Click()
Dima As Integer,bASInteger
a=1
b=2
PrintN(a,b)
End Sub
Function N(X As Integer,yAsInteger)AsInteger
N=IIf(x＞y，x，y)
End Funcfion

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a(5)As String
Fori=1 To 5
a(i)=Chr(Asc("A")+(11))
Nexti
For Each b In a
Print b
Next
End Sub
程序运行后，单击命令按钮，输出结果是( )。