试卷详情
-
国家计算机二级(VB)78
-
[单项选择]下列程序段,在运行时最后输出的内容是( )。
a=2
c=3
AAA:
c=c * a
If c〈10 Then
Print c
GoTo AAA
Else
Print“10以内的奇数显示完毕”
End If
A. 5,2,3
B. -5,-12,-7
C. -5,-12,-17
D. 5,-2,-7
-
[单项选择]计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( )。
A. If x>=y Then z=x:z=y
B. If x>=y Then z=x Else z=y
C. z=y:If x>=y Then z=x
D. If x<=y Then z=y Else z=x
-
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是( )。
A. 11
B. 10
C. 9
D. 8
-
[填空题]在文件对话框中,假定有一个名为"fc.exe"的文件,它位于"d:/pp"目录下,则"FileName"属性 的值为【 】;FileTifie属性的值为【 】。
-
[单项选择]建立一个新的标准模块,应该选择哪个菜单下的“添加模块”命令
A. 菜单与窗体无关,是对立的
B. 菜单总是于窗体有关,每个菜单都依附于一定的窗体
C. 菜单分为下拉式菜单和弹出式菜单
D. 在Visual Basic中有专门的设计菜单环境,那就是菜单编辑器
-
[填空题]要使标签的背景样式为不透明,应将BackStyle属性设置为【 】。
-
[单项选择]以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。
A. Left
B. Mid
C. String
D. Instr
-
[单项选择]下列程序段的执行结果为( )。
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print "* * 0 * *"
Case 1
Print " * * 1 * * "
End Select
Case 2
print " * * 2 * * "
End Select
A. 159
B. 753
C. 357
D. 591
-
[填空题]【 】的任务是诊断和改正程序中的错误。
-
[单项选择]在窗体上画1个名称为Command1l的命令按钮,并编写以下程序
Private Sub Command1_Ctick( )
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen/2
temp=temp+ Mid(st,k,1)+Mid(st,stlen -k+1,1)
Next k
Fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是【 】
A. ABCDEFG
B. AGBFCE
C. GFEDCBA
D. AGBFCED
-
[填空题]Visual Basic应用程序中标准模块文件的扩展名是【 】。
-
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X As Integer) As Integer
If X < 20 Then
Y = X
Else
Y = 20 + X
End If func = Y
End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
SW = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True
End Sub
Private Sub Command1_Click( ) Dim intNum As Integer intNum = InputBox("")
If SW Then
Print func(intNum) End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在输入对话框中输入25,则 程序的执行结果为______。
A. 输出0
B. 输出25
C. 输出45
D. 无任何输出
-
[单项选择]设有下面的循环:
i=1
Do
i=i + 3
Print i
Loop Until I>_________
程序运行后要执行3次循环体,则条件中I的最小值为( )。
-
[单项选择]下列叙述中正确的是
A. 循环队列有队头和队尾两个指针,因此,循环队列是非线性结构
B. 在循环队列中,只需要队头指针就能反映队列中元素的动态变化情况
C. 在循环队列中,只需要队尾指针就能反映队列中元素的动态变化情况
D. 循环队列中元素的个数是由队头指针和队尾指针共同决定的
-
[填空题]执行下面的程序段,x的值为【 】。
Private Sub Command1_Click( )
For i=1 To 9
a=a + i
Next i
x=Val(i)
MsgBox x
End Sub
-
[单项选择]在窗体画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( ) Dim a(5) As String
For i = 1 To 5
a(i) = Chr( Asc("A") + (i -1)) Next i
For Each b In a
Print b; Next
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
-
[单项选择]阅读程序:
Option Base 1
Dim arr( ) As Integer
Private Sub Form_Click( )
Dim i As Integer, j As Integer
ReDim arr(3, 2) For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4) For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4) End Sub
程序运行后,单击窗体,输入结果为______。
A. 21
B. 13
C. 8
D. 25
-
[单项选择]下列各控件不包含滚动条的控件是( )。
A. ListBox
B. ComboBox
C. TextBox
D. LabelBox
-
[单项选择]下列程序的执行结果为( )。
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. 0 0
B. 1 1
C. 0 2
D. 1 2
-
[单项选择]在窗体上有个命令按钮,然后编写如下事件过程:
m=InputBox("enter the first integer")
n=InputBox("enter the second integer")
Print n+m
程序运行后,单击命令按钮,先后在两个输入框中分别输入“1”和“5”,则输出结果为( )。
A. 30
B. 31
C. 32
D. 33
-
[填空题]下面程序的功能是从键盘输入1个大于100的整数m,计算并输出满足不等式1+2的2次方+3的2次方+4的2次方+...+n的2次方
-
[单项选择]有如下程序:
Private Sub Command1_Click( )
Dim k As Integer,m As Integer
Dim op As Integer
k=4:m=1
op:PPC(k,m):Print op;
op:PPC(k,m):Print op
End Sub
Private Function,PPC(a As Integer,b As Integer)
Static m As Integer,i As Integer
m=0:i=2
i=i+m+1
m=i+a+b
PPC=m
End Function
程序运行后,输出的结果为( )。
A. 4 6
B. 6 6
C. 8 8
D. 10 12
-
[单项选择]设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键,即按下Alt及字母O 时,能够执行“Open”命令,则在菜单编辑器中设置“Open”命令的方式是( )。
A. 把Caption属性设置为&Open
B. 把Caption属性设置为&Open
C. 把Name属性设置为&Open
D. 把Name属性设置为&Open
-
[单项选择]在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
x=InputBox(“Input”)
Select Case x
Case 1,3
Print“分支1”
Case Is>4
Print“分支2”
Case Else
Print“Else分支”
End Select
End Sub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )。
A. 分支1
B. 分支2
C. Else分支
D. 程序出错
-
[单项选择]下面选项中不属于面向对象程序设计特征的是【 】
A. 继承性
B. 多态性
C. 类比性
D. 封装性
-
[单项选择]下列对于线性链表的描述中正确的是______。
A. 存储空间不一定是连续,且各元素的存储顺序是任意的
B. 存储空间不一定是连续,且前件元素一定存储在后件元素的前面
C. 存储空间必须连续,且前件元素一定存储在后件元素的前面
D. 存储空间必须连续,且各元素的存储顺序是任意的
-
[单项选择]在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click( )
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=8
Print M(2+M(x))
End Sub
运行程序,单击命令按钮,在窗体上显示的是
A. 6
B. 5
C. 7
D. 8
-
[填空题]下面运行程序后,单击命令按钮,输出的结果是【 】。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1=";s1;"s2=";s2
End Sub
Function YAS(a( )As Integer)
Dim t#,i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
-
[单项选择]在Visual Basic中,组合框是文本框和什么的特性的组合
A. Visual Basic 6.0提供的数据类型主要有字符串型和数值型,此外还有字节、货币、对象、日期、布尔和变体数据类型等
B. 目前Decimal数据类型只能在变体类型中使用
C. 用户不能定义自己的数据类型
D. 布尔型数据只能取两种值,用两个字节存储
-
[单项选择]下列说法错误的是( )。
A. 方法是对象的一部分
B. 在调用方法时,对象名是不可缺少的
C. 方法是一种特殊的过程和函数
D. 方法的调用格式和对象属性的使用格式相同
-
[单项选择]当直线或形状的BorderStyle属性设置为1时,控件是( )。
A. ij
B. ijk
C. ijkl
D. ijklm
-
[填空题]下面的程序用于根据文本框Test中输入的内容进行以下处理:
若Text为1,则打印“您的成绩为优秀!”;若Text为2,则打印“您的成绩为良好!”;若Text 为3,则打印“您的成绩为一般”;否则打印“您的成绩一般以下!”,请填空。
Private Sub Command1_Click( )
Selct Case Val(Text1.Text)
Case【 】
Print "您的成绩为优秀!"
Case【 】
Print "您的成绩为良好!"
Case【 】
Print "您的成绩为一般!"
Case Else
Print "您的成绩为一般以下!"
End Select
End Sub
-
[填空题]在窗体上加上一个文本框控件TextBox,画一个命令按钮,当单击命令按钮的时候将显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和Word文档,然后在文本框控件中显示保存的文件名,请填空。
Private Sub Command1_Click( )
CommonDialog1.Filter=【 】
CommonDialog1.Filter=【 】
CommonDialog1.ShowSave
TextBox.Text=【 】
End Sub
-
[单项选择]下面的控件可作为其他控件容器的是( )。
A. PictureBox和Data
B. Frame和Image
C. PictureBox和Frame
D. Image和Data
-
[单项选择]为了通过键盘访问主菜单项,可在菜单编辑器的“标题”选项中的某个字母前插入何字符,建立热键字母
-
[单项选择]有如下事件过程,当同时按下转换键Ctrl和功能键F6时,最后输出的信息是( )。
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print"Press Shift+F5"
Elself Key Code=Key_F6 And Shift=CtrlKey Then
Print"Press Ctrl+F6"
End If
End Sub
A. 无任何信息
B. Press Shift+F5
C. Press Ctrl+F6
D. 程序出错
-
[填空题]下面程序是用来打印九九乘法表的,请补充完整。
Dim i As Integer,j As Integer,Strl$
Strl=" "
For i=1 To 9
Forj=1 To 9
If 【 】 Then
Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j))
Else
Strl=Strl & Chr(13)
【 】
End If
Next j
Next i
Print Str
-
[单项选择]下面程序段,运行后的结果是( )。
Private Sub Commandl_Click( )
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i)=i
Next i
t=Tof(b( ) )
Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
t=1
For i=2 To UBound(a)
t=t * a(i)
Next i
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
-
[单项选择]可以在常量的后面加上类型说明符以显示常量的类型,用来表示字符串常量的是( )。
A. t=18
B. t=24
C. t=30
D. t=32
-
[单项选择]单击一次命令结束后,下列程序的执行结果是( )。
Private Sub Commandl_Click( )
s=Sat(1)+Sat(2)+Sat(3)+Sat(4)
Print s
End Sub
Public Function Sat(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
Sat=Sum
End Function
A. 15
B. 25
C. 35
D. 45
-
[单项选择]确定窗体控件启动位置的属性是( )。
A. Width和Height
B. Width或Height
C. StartUpPositon
D. Top和Left
-
[单项选择]下列程序的执行结果为( )。
Ptivate Sub Commandl_Click( )
Dim FirStr As String
FirStr="abcdef"
Print Pct (FirStr)
End Sub
Private Function Pct(xStr As String)As String
Dim tempStr As String,strLen As Integer
tempStr=""
strLen=Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr=tempStr + Mid(xStr,i,l) + Mid(xStr,strLen - i+i ,1)
i=i + 1
Loop
Pct=tempStr
End FunCtion
A. abcdef
B. afbecd
C. fedcba
D. defabc