- 相干保举
计较机品级测验二级VB考前操练
为了使泛博考生在备战计较机品级测验时，更快的把握响应常识点，上面是小编搜刮清算的计较机品级测验二级VB考前操练，供参考操练，预祝考生们考出自己抱负的成就!
计较机品级测验二级VB考前操练
1． 上面法式是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输入到文件Ks61.dat中，而后从该文件中读出字符串并显现出来。请完美上面的法式：
Private Form_Click( )
Dim Str1 As String * 50 , Str2 As String , FileNo As Integer
FileNo = 【63】
Open “d:Vb2003KsKs61.dat” For 【64】As FileNo
Str1 = InputBox ( “请输入一个字符串：” )
Str1 = Lcase ( Str1 )
Seek #FileNo , 1
Put #FileNo, , Str1
【65】#FileNo, 1
Str2 = Input (【66】, #FileNo )
Print Str2
End Sub
【63】（A）Free （B）File （C）FreeFile （D）FileFree
【64】（A）Input （B）Output （C）Random （D）Binary
【65】（A）Loc （B）Lof （C）Eof （D）Seek
【66】（A）Len ( Str1 ) （B）Len ( Str2 ) （C）StrLen ( Str1 ) （D）StrLen (Str2)
2． 以下法式的功效是：把以后目次下的挨次文件smtext1.txt的内容读入内存，并在文本框Text1中显现出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".smtext1.txt" 【14】 As #1
Do While 【15】
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
3． 在窗体上画一个文本框（其Name属性为Text1），而后编写以下事务进程：
Private Sub Form_Load( )
Text1.Text = “ ”
Text1.SetFocus
For i = 1 to 10
Sum = Sum + i
Next i
Text1.Text = Sum
End Sub
法式运转后，输入成果为（ 【67】 ）
（A）在文本框Text1中输入55 （B）在文本框Text1中输入0
（C）在文本框Text1中输入不定值 （D）犯错
4． 在窗体上画一个文本框和一个列表框，而后编写以下两个事务进程：
Private Sub Form_Load( )
List1.AddItem “123 ”
List1.AddItem “456 ”
List1.AddItem “369”
List1.AddItem “789 ”
Text1.Text = “ ”
End Sub
Private Sub List1_DblClick( )
a = List1.Text
Print a + Text1.Text
End Sub
法式运转后，在文本框中输入“248”，而后双击列表框中的“369”，则输入成果（ 【68】 ）
（A）617 （B）248369 （C）369248 （D）0
5． 在窗体上画两个转动条，称号别离为Hscroll1 、Hscroll2；六个标签，称号别离为 Label1、Label2、Label3、Label4、Label5、Label6，此中标签Label 4~ Label6别离显现“A”、“B”、“A*B”等笔墨信息，标签Label1、Label2别离显现其右边的转动条的数值，Label3 显现A*B的计较成果。如图所示。当挪动转动框时，在响应的标签中显现转动条的值。当单击号令按钮"计较"时，对标签Label1、Label2中显现的两个值求积，并将成果显现在Label3中。以下不能完成上述功效的事务进程是
（A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
（B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
（C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
（D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub
6． 浏览上面法式：
Public Sub xy ( a As Integer , b As Integer )
Dim t As Integer
Do
t = a Mod b
a = b : b = t
Loop While t
Print a
End Sub
用Call xy (16 , 40 )挪用此通用进程后，输入成果为（ 【69】 ）
（A）4 （B）8 （C）16 （D）32
7． 在窗体上画一个称号为Command1的号令按钮，而后编写以下事务进程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n 3
Next n
Print n
End Sub
法式运转后，若是单击号令按钮，则窗体上显现的内容是
（A）15 （B）18 （C）21 （D）24
8． 以下语句的输入成果是（ 【70】 ）
a = “BeiJing”
b = “ShangHai”
Print a;b
以下成果中，“ □ ”表现空格：
（A）BeiJing□ShangHai （B）BeiJingShangHai
（C）BeiJingShangHai□ （D）BeiJing□ShangHai□
9． 上面法式共履行了（ 【71】 ）次轮回。
Dim Intsum As Integer , i As Integer , j As Integer
i = 1 : j = 1
Do
Do
Intsum = Intsum + j
j = j + 2
Print j;
Loop Until j > 3
i = i + 1
Loop Until i > 11
Print Intsum
（A）10 （B）11 （C）12 （D）13
10． 以下法式履行后，变量x的值为（ 【72】 ）
Dim a , b , c , d , x As Single
a = 200 : b = 100 : c = 500
If b > a Then
d = a : a = b : b = d
End If
If b > c Then
x = b
ElseIf a > c Then
x = c
Else
x = a
End If
Print x
（A）0 （B）100 （C）200 （D）500
【计较机品级测验二级VB考前操练】相干文章：
2015天下计较机品级测验二级VB考前教导：VB的启动与加入10-11
2017计较机二级VB考前操练题及谜底07-13
计较机品级测验二级Access考前试题09-19
2016计较机二级测验VB考前冲刺题06-18
2016年12月计较机二级VB考前操练08-19
2015年计较机品级测验二级VB摹拟试题08-12
2016计较机二级测验VB操练题及谜底10-12
2017计较机二级测验VB操练题及谜底10-31