• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

复选框的Value属性为0时，表示( )。

A．复选框未被选中
B．复选框被选中
C．复选框内有灰色的勾
D．复选框操作有误
题目列表

你可能感兴趣的试题

单项选择题

单击窗体时，下列程序段的执行结果为( )。
Private Sub Form_Crick()
Line(200,200)-(400,400)
Print"+++++++++++++++++++"
Print"*******************"
End Sub

A．在窗体上画一斜线，从斜线终点处开始打印两行符号
B．在窗体上画一斜线，从斜线起点处开始打印两行符号
C．在窗体上画一斜线，从窗体左上角开始打印两行符号
D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线
单项选择题

设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是( )。

A．命令按钮的所有Caption属性都是Command1
B．在代码中访问任意一个命令按钮只需使用名称Command1
C．命令按钮的大小都相同
D．命令按钮共享相同的事件过程
单项选择题

设s="中华人民共和国"，表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为( )。

A．"中华民国"
B．"中国人民"
C．"中共人民"
D．"人民共和"
单项选择题

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。

A．Private Sub Text1_KeyPress(KeyAscii As Integer)
　　If KeyAscii＜65 Or KeyAscii＞90 Then
　　　MsgBox"请输入大写字母"
　　　KeyAscii=0
　　End If
　End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode＜65 Or KeyCode＞90 Then
　　MsgBox"请输入大写字母“
　　KeyCode=0
　　　End If
End Sub
C．Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Asc(Text1.Text)＜65 Or Asc(Text1.Text)＞90 Then
　　MsgBox"请输入大写字母"
　End If
End Sub
D．Private Sub Text1_Change()
　　If Asc(Text1.Text)＞64 And Asc(Text1.Text)＜91 Then
　　　MsgBox"请输入大写字母"
　　End If
End Sub
单项选择题

复选框的Value属性为0时，表示( )。

A．复选框未被选中
B．复选框被选中
C．复选框内有灰色的勾
D．复选框操作有误
单项选择题

设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是( )。

A．命令按钮的所有Caption属性都是Command1
B．在代码中访问任意一个命令按钮只需使用名称Command1
C．命令按钮的大小都相同
D．命令按钮共享相同的事件过程
单项选择题

运行以下程序，输出结果是( )。
For I=1 To 3
cls
Print"I=",I；
Next

A．123
B．3
C．I=1I=2I=3
D．1=3
单项选择题

如果将文本框的Locked属性设置为True，则以下说法( )是正确的。

A．此时在属性窗口不可以修改文本框的Text属性值
B．运行时用户不可以在界面上修改文本框中的内容
C．在程序代码中不可以修改文本框的内容，如不可以使用语句Text1.Text=“aaa”
D．以上均不正确
单项选择题

为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multi-select属性设置为( )。

A．0
B．1
C．2
D．3
单项选择题

在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是( )。

A．Private Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Funcfion
B．Privae Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C．Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Va(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Funcfion
D．Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Val(x))
Print a
End Sub
Function F1(ByrRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
单项选择题

以下关于函数过程的叙述中，正确的是( )。

A．函数过程形参的类型与函数返回值的类型没有关系
B．在函数过程中，过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D．如果不指明函数过程参数的类型，则该参数没有数据类型
单项选择题

数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。

A．编码设计
B．测试阶段
C．运行阶段
D．物理设计
单项选择题

在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是( )。

A．Drive1_Change
B．Drive1_Click
C．Dir1_Click
D．Dir1_Change
单项选择题

下列可以启动Visual Basic的方法是( )。

A．打开“我的电脑”，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击“VB6.exe”图标
B．在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件
C．利用“开始”菜单中的“程序”命令可启动Visual Basic
D．A和C
单项选择题

VB6.0是( )应用程序的开发工具。

A．8位
B．16位
C．32位
D．64位
单项选择题

设有数组声明语句：
Option Base 1
Dim A(2,-1 To 1)
以上语句所定义的数组A为______维数组，共有______个元素，第一维下标从______到______，第二维下标从______到______。下列选项正确的是( )。

A．1，2，6，2，-1，1
B．6，2，1，2，-1，1
C．2，6，1，2，-1，1
D．2，1，6，-1，1，2
单项选择题

以下能够正确计算n!的程序是( )。

A．Private Sub Command1_Click()
　　n=5:x=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜n
　　Print x
　End Sub
B．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜n
　　Print x
　End Sub
C．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜=n
　　print x
　End Sub
D．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＞n
　print x
End Sub
单项选择题

下列各组变量声明正确的是( )。

A．Dim abc as integer,num as single
B．Dim I%,N$as integer
C．Dim a%,b%,c%,a$
D．public dim n%
单项选择题

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

A．打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B．保存Visual Basic程序时，应分别保存窗体文件及工程文件
C．Visual Basic应用程序只能以解释方式执行
D．窗体文件包含该窗体及其控件的属性
单项选择题

下列描述错误的是( )。

A．ReDim命令可以独立使用来声明数组变量
B．ReDim命令声明数组变量时，不可以使用变量来定义数组元素的个数
C．ReDim命令声明的数组变量是动态数组变量
D．ReDim命令声明的数组变量可以用Erase命令来删除
单项选择题

使用语句Dim A(1 To 10)As Integer声明数组A之后，以下说法正确的是( )。

A．A数组中的所有元素值为0
B．A数组中的所有元素值不确定
C．A数组中的所有元素值为Empty
D．执行EraseA后，A数组中的所有元素值为Null
单项选择题

要在命令按钮控件上显示图像应( )。

A．设置Picture属性
B．实现不了
C．先将Type设置为1，然后再设置Picture属性
D．以上都不对
单项选择题

Visual Basic程序中分隔各语句的字符是( )。

A．'
B．:
C．\
D．_
单项选择题

以下能够正确退出循环的是( )。

A．i=10
Do
i=i+1
Loop Until i＜10
B．i=1
Do
i=i+1
Loop Until i=10
C．i=10
Do
i=i+1
Loop Until i＞0
D．i=1
Do
i=i-3
Loop Until i=0
单项选择题

设a=3，b=5，则以下表达式值为真的是( )。

A．a＞=b And b>＞10
B．(a＞b) Or (b＞0)
C．(a＜0) Eqv (b＞0)
D．(－3+5＞a) And (b＞0)
单项选择题

下列代码运行后输出结果是( )。
Defstr C-F
Private Sub Command1_Click()
C$="123"
D="456"
Print C+D$
End Sub

A．123456
B．"123456"
C．123+"456"
D．显示出错信
单项选择题

下面的程序运行时，为了在窗体上输出“VB6.0”，应在窗体上执行的操作是( )。
Private Sub Form_MouseDown(BuRon As Integer,shift As Integer,x As Single,Y As Single)
　If Button And 3=3 then
　　Print"VB 6.0"
　End If
End Sub

A．只能按下右键
B．只能按下左键
C．应同时按下左、右键
D．按下左、右键之一
单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Crick()
　　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
单项选择题

下列程序的执行结果为( )。
Private Sub Command1_Click()
　　Dim s1 As String,s2 As String
　　s1="abcdef"
　　Call Invert(s1,s2)
　　Print s2
End Sub
Private Sub Invert(ByVal xstr As String,ystr As String)
　　Dim tempstr As String
　　i=Len(xstr)
　　Do While i＞=1
　　　tempstr=tempstr+Mid(xstr,i,1)
　　　i=i-1
　　Loop
　　ystr=tempstr
End Sub

A．fedcba
B．abcdef
C．afbecd
D．defabc
单项选择题

在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
　　c="ABCD"
　　For n=1 To 4
　　　Print______
　　Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在横线处应填入的内容为( )。

A．Left(c,n)
B．Right(c,n)
C．Mid(c,n,1)
D．Mid(c,n,n)
单项选择题

在窗体上画两个名称分别为Text1，Text2的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x＜20
　x=x*3
　n=n+1
Loop
Text1.Text=str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。

A．15和1
B．27和3
C．195和3
D．600和4
单项选择题

下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click()
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub

A．10
B．12
C．37
D．22
单项选择题

有如下程序：
Option Base 1
Pfivate Sub Form_Click()
　Dim arr,Sum
　Sum=0
　arr=Array(1,3,5,7,9,11,13,15,17,19)
　For i=1 To 10
　　If arr(i)/3=arr(i)\3 Then
　　　Sum=Sum+arr(i)
　　End If
　Nexti
　print Sum
End Sub
程序运行后，单击窗体，输出结果为( )。

A．25
B．26
C．27
D．28
单项选择题

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：
Dim S1 As String．S2 As String
Private Sub Form_Load0
　　Text1.Text=""
　　Text2.Text=""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
　　S2=S2&Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
　　S1=S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
　　Text1.Text=S2
　　Text2.Text=S1
　　S1=""
　　S2=""
End Sub
程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。

A．abc和ABC
B．abc和abc
C．ABC和abc
D．ABC和ABC
单项选择题

在窗体上绘制一个名称为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
程序运行后，单击命令按钮，在窗体上显示的是( )。

A．6
B．7
C．8
D．9
微信扫码免费搜题