用Print方法在Form1窗体中显示出4个星号的正确代码为( )。

单项选择题

用Print方法在Form1窗体中显示出4个星号的正确代码为( )。

A．Debug.Print"****"
B．Print****
C．Form1_Print"****"
D．Form1.Print"****"

单项选择题

窗体上有一个按钮和一个滚动条，则下列程序的功能是( )。
Sub Command1_Click()
HScroll1.LargeChange=5
End Sub

A．将滚动条的最大值设为5
B．将滚动条最大改变值改变5
C．将滚动条的最小值设为5
D．将滚动条最小改变值改为5

单项选择题

如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( )。

A．0
B．-1
C．True
D．False

单项选择题

在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。
Private Sub Text1______
Label 1.Caption=Text1.Text
End Sub

A．Focus
B．Crick
C．Chang
D．LostFocus

单项选择题

下列事件过程运行后输出结果是( )。
Private Sub Command1_Click()
Print Format$(123.456,"###.##%")
End Sub

A．123.46%
B．123.45%
C．123.456%
D．12345.6%

单项选择题

下列程序段的执行结果为( )。
a="ABBACDDCBA"
For I=6 To 2 Step-2
　　 x=Mid(a,I,I)
　　 y=Left(a,I)
　　z=Right(a，I)
　　z=x&y&z
Next I
Print z

A．ABC
B．AABAAB
C．BBABBA
D．ABBABA

单项选择题

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

A．线性链表是线性表的链式存储结构
B．栈与队列是非线性结构
C．双向链表是非线性结构
D．只有根结点的二叉树是线性结构

单项选择题

在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( )。

A．，
B．；
C．、
D．：

单项选择题

设a=2，b=3，c=4，下列表达式的值是( )。
Not a＜=c Or 4*c=b^2 And b＜＞a+c

A．-1
B．1
C．True
D．False

单项选择题

执行下列程序后，变量a的值为( )。
Dim i As Integer
Dim a As Integer
a=0
For i=1 To 100 Step 2
　　a=a+1
Next i

A．1
B．10
C．50
D．100

单项选择题

多分支选择结构的Case语句中“变量值列表”不能是( )。

A．常量值的列表，如Case1,3,5
B．变量名的列表，如Case x,y,z
C．To表达式，如Case 10 To 20
D．Is关系表达式，如Case Is＜20

单项选择题

选择循环结构的作用是( )。

A．提高程序运行速度
B．控制程序的流程
C．便于程序的阅读
D．方便程序的调试

单项选择题

执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step-2
　　X=Mid(a,i,i)
　　Y=Left(a,i)
　　Z=Right(a,i)
　　 z=UCase(X&Y&z)
Next i
Print z
输出结果为( )

A．ABC
B．BBABBA
C．ABBABA
D．AABAAB

单项选择题

要使某控件在运行时不可显示，应对属性( )进行设置。

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

单项选择题

若要在图片框中绘制一个椭圆，使用的方法是( )。

A．Circle
B．Line
C．Point
D．Pset

单项选择题

定义过程语句中的〈参数表列〉可以是( )。

A．常量或变量名
B．表达式或变量名
C．数组元素或变量名
D．变量名或数组名

单项选择题

要使菜单项MenuOne在程序运行时失效，使用的语句是( )。

A．MenuOne. Visible=True
B．MenuOne. Visible=False
C．MenuOne. Enabled=True
D．MenuOne. Enabled=False

单项选择题

用标准工具栏中的工具按钮不能执行的操作是( )。

A．添加工程
B．打印源程序
C．运行程序
D．打开工程

单项选择题

单击滚动条的滚动箭头时，产生的事件是( )。

A．Click
B．Scroll
C．Change
D．Move

单项选择题

表达式Int(-17.8)+Sgn(17.8)的值是( )。

A．18
B．-17
C．-18
D．-16

单项选择题

在窗体上建立通用对话框需要添加的控件是( )。

A．Data控件
B．Form控件
C．CommonDialog控件
D．VBComboBox控件

单项选择题

表达式X+1＞X是( )。

A．算术表达式
B．非法表达式
C．字符串表达式
D．关系表达式

单项选择题

以下说法不正确的是( )。

A．使用ReDim语句可以改变数组的维数
B．使用ReDim语句可以改变数组的类型
C．使用ReDim语句可以改变数组每一维的大小
D．使用ReDim语句可以对数组中的所有元素进行初始化

单项选择题

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
Private Sub Command1_Click()
　Dim a As Integer
　 a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form，x As Integer)
　y=IIf(x＞10,100,-100)
　 f.Show
　f.Caption=y
End Sub
运行以上的程序，正确的结果是( )。

A．Form1的Caption属性值为100
B．Form2的Caption属性值为-100
C．Form1的Caption属性值为-100
D．Form2的Caption属性值为100

单项选择题

单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Crick()
　Print Myfunc(24,18)
End Sub
Public Function MyFunc(m As Integer,n As Integer)As Integer
　Do Whilem＜＞n
Do While m＞n:m=m-n:Loop
Do While m＜n:n=n-m:Loop
　Loop
MyFunc=m
End Function

A．2
B．4
C．6
D．8

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click()
　　Dim city As Variant
　　 city=Array("北京"，"上海"，"天津"，"重庆")
　　 Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

A．空白
B．错误提示
C．北京
D．上海

单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
　　n=Val(Text1.Text)
　　For i=2 To n
　　　Forj=2 To Sqr(i)
　　　　If i Mod j=0 Then Exit For
　　　 Next j
　　　If j＞Sqr(i) Then Print i
　　Next i
End Sub
该事件过程的功能是( )。

A．输出n以内的奇数
B．输出n以内的偶数
C．输出n以内的素数
D．输出n以内能被j整除的数

用Print方法在Form1窗体中显示出4个星号的正确代码为( )。

你可能感兴趣的试题

用Print方法在Form1窗体中显示出4个星号的正确代码为( )。

窗体上有一个按钮和一个滚动条，则下列程序的功能是( )。 Sub Command1_Click() HScroll1.LargeChange=5 End Sub

如果将布尔常量值True赋值给一个整型变量，则整型变量的值为( )。

在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub

下列事件过程运行后输出结果是( )。 Private Sub Command1_Click() Print Format$(123.456,"###.##%") End Sub

对象.cls方法对( )控件有效。

若要使标签控件显示时不覆盖其背景内容，应设置标签的( )属性。

下列叙述中错误的是( )。

要使文本框只具有垂直滚动条，则就( )。

已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )。

设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf((a＜b) Or (c＞d)，"A"，"B")后，x的值为( )。

以下叙述中，错误的是( )。

要使标签能够显示所需要的文本，则在程序中应设置( )属性的值。

下列程序段的执行结果为( )。 a="ABBACDDCBA" For I=6 To 2 Step-2 x=Mid(a,I,I) y=Left(a,I) z=Right(a，I) z=x&y&z Next I Print z

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

在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( )。

设a=2，b=3，c=4，下列表达式的值是( )。 Not a＜=c Or 4*c=b^2 And b＜＞a+c

执行下列程序后，变量a的值为( )。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i

多分支选择结构的Case语句中“变量值列表”不能是( )。

选择循环结构的作用是( )。

执行以下程序段 a$="abbacddcba" For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) Z=Right(a,i) z=UCase(X&Y&z) Next i Print z 输出结果为( )

要使某控件在运行时不可显示，应对属性( )进行设置。

若要在图片框中绘制一个椭圆，使用的方法是( )。

定义过程语句中的〈参数表列〉可以是( )。

要使菜单项MenuOne在程序运行时失效，使用的语句是( )。

用标准工具栏中的工具按钮不能执行的操作是( )。

单击滚动条的滚动箭头时，产生的事件是( )。

表达式Int(-17.8)+Sgn(17.8)的值是( )。

在窗体上建立通用对话框需要添加的控件是( )。

表达式X+1＞X是( )。

以下说法不正确的是( )。

单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Crick() Print Myfunc(24,18) End Sub Public Function MyFunc(m As Integer,n As Integer)As Integer Do Whilem＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop MyFunc=m End Function

窗体上有一个按钮和一个滚动条，则下列程序的功能是( )。
Sub Command1_Click()
HScroll1.LargeChange=5
End Sub

在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。
Private Sub Text1______
Label 1.Caption=Text1.Text
End Sub

下列事件过程运行后输出结果是( )。
Private Sub Command1_Click()
Print Format$(123.456,"###.##%")
End Sub

下列程序段的执行结果为( )。
a="ABBACDDCBA"
For I=6 To 2 Step-2
　　 x=Mid(a,I,I)
　　 y=Left(a,I)
　　z=Right(a，I)
　　z=x&y&z
Next I
Print z

设a=2，b=3，c=4，下列表达式的值是( )。
Not a＜=c Or 4*c=b^2 And b＜＞a+c

执行下列程序后，变量a的值为( )。
Dim i As Integer
Dim a As Integer
a=0
For i=1 To 100 Step 2
　　a=a+1
Next i

执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step-2
　　X=Mid(a,i,i)
　　Y=Left(a,i)
　　Z=Right(a,i)
　　 z=UCase(X&Y&z)
Next i
Print z
输出结果为( )

单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Crick()
　Print Myfunc(24,18)
End Sub
Public Function MyFunc(m As Integer,n As Integer)As Integer
　Do Whilem＜＞n
Do While m＞n:m=m-n:Loop
Do While m＜n:n=n-m:Loop
　Loop
MyFunc=m
End Function