设有命令按钮Commandl的单击事件过程，代码如下：
Private Sub Commandl_Click()
Dima(30)As Integer
Fori=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrltem In a
IfarrltemMod7=0 ThenPrintarrItem；
Ifarrltem＞90ThenExitFor
Next
End Sub
对于该事件过程，以下叙述中错误的是( )。

A．a数组中的数据是30个100以内的整数
B．语句ForEacharrItem Ina有语法错误
C．Ifarrltem Mod7=0……语句的功能是输出数组中能够被7整除的数
D．Ifarrltem＞90……语句的作用是当数组元素的值大于90时退出For循环

你可能感兴趣的试题

单项选择题
fileFiles.Pattem="*.dat"程序代码执行后，会显示( )。
A．只包含扩展名为"*.dat"的文件
B．第一个dat文件
C．包含所有的文件
D．会显示磁盘的路径
单项选择题
只有将组合框的Style属性设置为( )值时，才能触发DblClick事件。
A．0
B．1
C．2
D．3
单项选择题
退出VB6.0的快捷键是( )。
A．Ctrl+Q
B．Alt+Q
C．Alt+A
D．Ctrl+A
单项选择题
VisualBasic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是( )。
A．Xor
B．Or
C．Eqv
D．And
单项选择题
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是( )。
A．DB包含DBS和DBMS
B．DBMS包含DB和DBS
C．DBS包含DB和DBMS
D．没有任何关系
单项选择题
常用控件的Style属性值是( )。
A．字符常量
B．逻辑常量
C．数值常量
D．日期常量
单项选择题
执行如下语句：
a=InputBox("Today"，"Tomorrow"，"Yesterday"，"Day before yesterday",5)
将显示一个输入对话框，在对话框的输入区中显的信息是( )。
A．Today
B．Tomorrow
C．Yesterday
D．Daybeforeyesterday
单项选择题
结构化程序设计主要强调的是( )。
A．程序的规模
B．程序的效率
C．程序设计语言的先进性
D．程序易读性
单项选择题
在窗体上画一个名称为Filel的文件列表框，并编写如下程序：
Private Sub FUel_DblClick()
x=Shell(File1_ileName，1)
End Sub
以下关于该程序的叙述中，错误的是( )。
A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel.FileName,1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1.FileName指定
D．Ffle1中显示的是当前驱动器、当前目录下的文件
单项选择题
下面的程序运行结果是( )。
Private Sub Form_Click()
I=0
DoUntil0
i=i+1
if i＞10 then Exit Do
Loop
Printi
End Sub
A．0
B．10
C．11
D．出错
单项选择题
下列命令按钮事件过程执行后，输出结果是( )。
Form=1 To 1000Step2
a=10
Forn=1 To 20 Step2
a=a+2
Nextn
Nextm
Printa
A．1200
B．10000
C．30
D．20
单项选择题
下面有关注释语句的格式，错误的是( )。
A．Rem注释内容
B．'注释内容
C．a=3：b=2'对a、b赋值
D．Private Sub Cpmmandl_Mouse Down(button As Integer，Shin As Integer，Rem鼠标按下事件的命令调用过程X As Single，Y As Single)
单项选择题
设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下正确的语句是( )。
A．CommonDialog1.Filter=-ALLLFiles[*．*| Pictures(*.Bmp)|*.Bmp
B．CommonDialoS1.Filter="ALLLFiles"|*.*|"Pictures(*.Bmp)"|*.Bmp
C．CommonDialog1.Filter=ALLLPUesI*．*I Pictures(*.Bmp)|*.Bmp)
D．ComlnonDialog1. Filter="ALLLPdes|*.*|Pictures(*.Bmp)|*.Bmpn
单项选择题
如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )。
A．如果工程中含有Sub Main过程，则程序一定首先执行该过程
B．不能把标准模块设置为启动模块
C．用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D．任何时刻最多只有一个窗体是活动窗体
单项选择题
在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。
单项选择题
下列语句的输出结果为( )。
PrintFormat$(5689.36，"000,000.000")
A．5,689.36
B．5,689.360
C．5,689.3
D．005,689.360
单项选择题
能够改变窗体边框线类型的属性是( )。
A．Font Syle
B．Border Style
C．Back Style
D．Border
单项选择题
下列描述中正确的是( )。
A．程序就是软件
B．软件开发不受计算机系统的限制
C．软件既是逻辑实体，又是物理实体
D．软件是程序、数据与相关文档的集合
单项选择题
VisualBasic采用了( )编程机制。
A．面向过程
B．面向对象
C．事件驱动
D．可视化
单项选择题
有如下程序，该段程序将( )。
Fori=1 to 10 Step0
k=k+2
Nexti
A．形成无限循环
B．循环体执行一次后结束循环
C．语法错误
D．循环体不执行即结束循环
单项选择题
如果要改变窗体的标题，则需要设置的属性是( )。
A．Caption
B．Name
C．BackColor
D．Borderstyle
单项选择题
下列程序的输出结果是( )。
Dima
a=Array(1，2,3,4,5,6,7,8)
i=0
ForK=100 To 90 Step-2
s=a(i)^2
If a(i)＞3 Then Exit For
i=i+1
Nextk
Printk；a(i)；s
A．88 6 36
B．88 1 2
C．90 2 4
D．94 4 16
单项选择题
以下是MDI子窗体在运行时特性的叙述，错误的是( )。
A．子窗体在MDI窗体的内部区域显示
B．子窗体可在MDI窗体的外部区域显示
C．当子窗体最小化时，它的图标在MDI窗体内显示
D．当子窗体最大化时，其标题与MDI窗体标题合并，并显示在MDI窗体的标题栏中
单项选择题
假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是＜ )。
A．boolVar='True'
B．boolVar=.True.
C．boolVar=#gTme#
D．boolVar=3＜4
单项选择题
设A$="Hello"，下列语句正确的是( )。
A．Labe11.Hight=Labe11.Hight+A$
B．Labe11.Caption=Labe11.Caption+A$
C．Labe11.Enabled=Laabe11.Enabled+A$
D．Labe11.Visible=Labe11.Visible+AS
单项选择题
给文件改名的VB语句正确的是( )。
A．Name原文件名To新文件名
B．Rename原文件名To新文件名
C．Name原文件名as新文件名
D．Rename原文件名as新文件名
单项选择题
下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
Dimx(10)
ForI=1 to 10
x(i)=10-I+1
Next I
ForI=10 to 1 step-2
Printx(i)；
NextI
End Sub
A．1 3579
B．975 3 1
C．1234567 89 10
D．1098765432 1
单项选择题
下列不能打开菜单编辑器的操作是( )。
A．按Ctrl+E
B．单击工具栏中的“菜单编辑器”按钮
C．执行“工具”菜单中的“菜单编辑器”命令
D．按Shift+Alt+M
单项选择题
如果一个变量未经定义就直接使用，则该变量的类型为( )。
A．Integer
B．Byte
C．Boolean
D．Variant
单项选择题
任何控件都具有( )属性。
A．Text
B．Caption
C．Name
D．ForeColor
单项选择题
在深度为7的满二叉树中，叶子结点的个数为( )
A．32
B．31
C．64
D．63
单项选择题
下列程序的执行结果为( )。
Ptivate Sub Command_Click()
DimFirStr As String
FirStr="abcdef"
PrintPat(FirSb)
End Sub
PrivateFunctionPat(xStr As String)As String
DimtempStr As String，strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
DoWhile i＜=Len(xStr)-3
tempStr=tempSlx+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1)
i=i+1
Loop
Pat=tempStr
End Function
A．abcdef
B．afbecd
C．fedcba
D．defabc
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Funcdonf(m As Integer)
If m Mod2=0 Then
f=m
E1Se
f=1
End If
End FunCdOn
Private Sub Cmnmalldl_CUCk()
Dimi As Integer
S=0
Fori=1 To 5
s=s+f(i)
Next
PrintS
End Sub
程序运行后，单击命令按钮，在窗体上显示的是( )。
A．11
B．10
C．9
D．8
单项选择题
设有命令按钮Commandl的单击事件过程，代码如下：
Private Sub Commandl_Click()
Dima(30)As Integer
Fori=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrltem In a
IfarrltemMod7=0 ThenPrintarrItem；
Ifarrltem＞90ThenExitFor
Next
End Sub
对于该事件过程，以下叙述中错误的是( )。
A．a数组中的数据是30个100以内的整数
B．语句ForEacharrItem Ina有语法错误
C．Ifarrltem Mod7=0……语句的功能是输出数组中能够被7整除的数
D．Ifarrltem＞90……语句的作用是当数组元素的值大于90时退出For循环
单项选择题
运行以下程序后，输出的图案是( )。
Form1.ClS
A$=Strillg$(10，“*”)
Fori=1 To 5
n=10-2*I
X$=A$：Y$=Space$(n)
Mid$(X$，i+1，n)=Y$
PrintX$
Nexti

首页

题库

网课

在线模考

你可能感兴趣的试题

fileFiles.Pattem="*.dat"程序代码执行后，会显示( )。

只有将组合框的Style属性设置为( )值时，才能触发DblClick事件。

退出VB6.0的快捷键是( )。

VisualBasic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是( )。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是( )。

常用控件的Style属性值是( )。

执行如下语句：
a=InputBox("Today"，"Tomorrow"，"Yesterday"，"Day before yesterday",5)
将显示一个输入对话框，在对话框的输入区中显的信息是( )。

结构化程序设计主要强调的是( )。

在窗体上画一个名称为Filel的文件列表框，并编写如下程序：
Private Sub FUel_DblClick()
x=Shell(File1_ileName，1)
End Sub
以下关于该程序的叙述中，错误的是( )。

下面的程序运行结果是( )。
Private Sub Form_Click()
I=0
DoUntil0
i=i+1
if i＞10 then Exit Do
Loop
Printi
End Sub

下列命令按钮事件过程执行后，输出结果是( )。
Form=1 To 1000Step2
a=10
Forn=1 To 20 Step2
a=a+2
Nextn
Nextm
Printa

下面有关注释语句的格式，错误的是( )。

设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下正确的语句是( )。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )。

在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。

下列语句的输出结果为( )。
PrintFormat$(5689.36，"000,000.000")

能够改变窗体边框线类型的属性是( )。

下列描述中正确的是( )。

VisualBasic采用了( )编程机制。

有如下程序，该段程序将( )。
Fori=1 to 10 Step0
k=k+2
Nexti

如果要改变窗体的标题，则需要设置的属性是( )。

下列程序的输出结果是( )。
Dima
a=Array(1，2,3,4,5,6,7,8)
i=0
ForK=100 To 90 Step-2
s=a(i)^2
If a(i)＞3 Then Exit For
i=i+1
Nextk
Printk；a(i)；s

以下是MDI子窗体在运行时特性的叙述，错误的是( )。

假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是＜ )。

设A$="Hello"，下列语句正确的是( )。

给文件改名的VB语句正确的是( )。

下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
Dimx(10)
ForI=1 to 10
x(i)=10-I+1
Next I
ForI=10 to 1 step-2
Printx(i)；
NextI
End Sub

下列不能打开菜单编辑器的操作是( )。

如果一个变量未经定义就直接使用，则该变量的类型为( )。

任何控件都具有( )属性。

在深度为7的满二叉树中，叶子结点的个数为( )

运行以下程序后，输出的图案是( )。
Form1.ClS

你可能感兴趣的试题

fileFiles.Pattem="*.dat"程序代码执行后，会显示( )。

只有将组合框的Style属性设置为( )值时，才能触发DblClick事件。

退出VB6.0的快捷键是( )。

VisualBasic布尔运算符Xor，Or，Eqv，And中，级别最高的运算符是( )。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是( )。

常用控件的Style属性值是( )。

执行如下语句： a=InputBox("Today"，"Tomorrow"，"Yesterday"，"Day before yesterday",5) 将显示一个输入对话框，在对话框的输入区中显的信息是( )。

结构化程序设计主要强调的是( )。

在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub FUel_DblClick() x=Shell(File1_ileName，1) End Sub 以下关于该程序的叙述中，错误的是( )。

下面的程序运行结果是( )。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End Sub

下列命令按钮事件过程执行后，输出结果是( )。 Form=1 To 1000Step2 a=10 Forn=1 To 20 Step2 a=a+2 Nextn Nextm Printa

下面有关注释语句的格式，错误的是( )。

设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下正确的语句是( )。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是( )。

在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是( )。

下列语句的输出结果为( )。 PrintFormat$(5689.36，"000,000.000")

能够改变窗体边框线类型的属性是( )。

下列描述中正确的是( )。

VisualBasic采用了( )编程机制。

有如下程序，该段程序将( )。 Fori=1 to 10 Step0 k=k+2 Nexti

如果要改变窗体的标题，则需要设置的属性是( )。

下列程序的输出结果是( )。 Dima a=Array(1，2,3,4,5,6,7,8) i=0 ForK=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Nextk Printk；a(i)；s

以下是MDI子窗体在运行时特性的叙述，错误的是( )。

假设变量boolVar是一个布尔型变量，则下面正确的赋值语句是＜ )。

设A$="Hello"，下列语句正确的是( )。

给文件改名的VB语句正确的是( )。

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End Sub

下列不能打开菜单编辑器的操作是( )。

如果一个变量未经定义就直接使用，则该变量的类型为( )。

任何控件都具有( )属性。

在深度为7的满二叉树中，叶子结点的个数为( )

运行以下程序后，输出的图案是( )。 Form1.ClS

执行如下语句：
a=InputBox("Today"，"Tomorrow"，"Yesterday"，"Day before yesterday",5)
将显示一个输入对话框，在对话框的输入区中显的信息是( )。

在窗体上画一个名称为Filel的文件列表框，并编写如下程序：
Private Sub FUel_DblClick()
x=Shell(File1_ileName，1)
End Sub
以下关于该程序的叙述中，错误的是( )。

下面的程序运行结果是( )。
Private Sub Form_Click()
I=0
DoUntil0
i=i+1
if i＞10 then Exit Do
Loop
Printi
End Sub

下列命令按钮事件过程执行后，输出结果是( )。
Form=1 To 1000Step2
a=10
Forn=1 To 20 Step2
a=a+2
Nextn
Nextm
Printa

下列语句的输出结果为( )。
PrintFormat$(5689.36，"000,000.000")

有如下程序，该段程序将( )。
Fori=1 to 10 Step0
k=k+2
Nexti

下列程序的输出结果是( )。
Dima
a=Array(1，2,3,4,5,6,7,8)
i=0
ForK=100 To 90 Step-2
s=a(i)^2
If a(i)＞3 Then Exit For
i=i+1
Nextk
Printk；a(i)；s

下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click()
Dimx(10)
ForI=1 to 10
x(i)=10-I+1
Next I
ForI=10 to 1 step-2
Printx(i)；
NextI
End Sub

运行以下程序后，输出的图案是( )。
Form1.ClS