发布时间 : 星期日 文章2011至2012年VB高考题更新完毕开始阅读
Vb
一、選擇題
1.在ＶＢ中，Lcase（“12ABcd34”）的值是（ ）Ａ.abcd B.1234 C.12ABCD34 D.12abcd34
2.ＶＢ窗体模式文件的扩展名是（ ） Ａ.FRM B.WIN C.VBG D.BAS 3.下面选项中，哪个不是ＶＢ中的对象（ ）Ａ．窗体 Ｂ 命令按钮 Ｃ 属性 Ｄ 定时器 4.关于ＶＢ中对象的方法，说法不正确的是（ ）Ａ 方法是对象的动作 Ｂ 文本框有方法Ｃ 窗体有方法 Ｄ 方法后必须跟有被操作的对象 5.关于ＶＢ中复选框的Value属性的说法，不正确的是（ ）
Ａ 可以有三个值０、１、２ Ｂ 其值不能通过赋值语句改变 Ｃ其值是整数类型
Ｄ当值为１时表示被选中
6.在ＶＢ中，关于窗体中命令按钮的说法，正确的是（ ）
Ａ通过指令可以改变位置，但大小不能改变 Ｂ通过指令不能改变位置，但大小可以改变 Ｃ 位置、大小均不能改变
Ｄ 通过指令可以改变位置和大小
7.在ＶＢ中，产生５到３５之间（含５和３５）的随机整数，哪个公式正确（ ） Ａ int(30*rnd)+5 B 5+int(31*rnd) C int(5+31)rnd D 40-5*int(rnd) 8.下面不是ＶＢ合法数据的是（ ） Ａ 2E2.1 B 2% C “A+A” D True 9.ＶＢ中表示一个文本框（名称为Text1）选定内容的是哪个选项（ ）
Ａ Text1.Sellength B Text1.Text C Text1.Sellength D Text1.Sellength 10.执行ＶＢ语句PRINT”12”+”45”的显示结果是（ ）
Ａ １２４５ Ｂ ５７ Ｃ ５４２１ Ｄ 语句有语法错误 11．在Visual Basic中，Print \语句执行的结果是（ ）
A．1245 B.57 C. \类型错
12．在Visual Basic中，关于文件保存的说法正确的是（ ） A．只保存扩展名是.frm的文件 B. 只保存扩展名是.vbp的文件 C. 只保存扩展名是.bas的文件
D. 扩展名是.frm，.vbp，.bas这三类文件都可以保存
13．在Visual Basic中，设置窗体Form1的标题为“VB程序窗体”的指令是（ ）A．Form1.name=”VB程序窗体”B．Form1.top=”VB程序窗体”
C. Form1.caption=”VB程序窗体”D. Form1.topic=”VB程序窗体” 14．读下面Visual Basic程序，最后一行输出结果是（ ）
a = -262: b = 5
c = Len(Str(a) + Str(b)) Print c
A 4 B．5 C．6 D．7 15．设a = 2: b = 4: c = 7: d = 8，Visual
Basic表达式Not a < b Or c = 9 And d <> 9的值是（ ）
A．1 B．-1 C．True D．False 16．在Visual Basic中，向图片框（picture1）装入图片(” c:\\a.jpg”)正确的语句是．（ ）
A．picture1.Picture =Load(” c:\\a.jpg”) B．picture1.Picture.Load(” c:\\a.jpg”) C.picture1.Picture=Loadpicture(” c:\\a.jpg”)
D.picture1.Picture=Loadpicture.Load(” c:\\a.jpg”)
17．在Visual Basic中，关于控件说法不正确的是（ ）
A．可以创建控件数组 B．控件都有名称C．控件都有单击事件 D．用Visible属性可以改变某些控件的可见性
18．下面Visual Basic中数据中，表示1978
年10月20日正确的格式是（ ）
A．10-20-1978 B．10/20/1978 Next j Print n
C．#1978.10.20# D．#10-20-1978#
19．Visual Basic中文本框的默认属性是哪个选项（ ）
A．Caption B．Text C．SelText D．Selstart 20．在Visual Basic中，下面关于双击窗体要触发的事件说法正确的是（ ） A．只触发Click事件 B．只触发DblClick事件 C． 可以触发Click和DblClick事件 D．可以触发Load和DblClick事件 二、判断题
21．在Visual Basic中，write #语句是把数据写入顺序文件中，print #语句是把顺序文件中的内容打印出来。（ ） 22.在ＶＢ中，一个窗体中的多个选项按钮，不管通过什么方法设计，运行时每次只能选一个。（ ）
三、填空题
23.在Visual Basic中，获得命令按钮的标
题使用的属性是_________________
24．代数式3x?x?1?x?在Visual Basic
中的相应表达式是______________ 25.在ＶＢ中，从顺序文件中文件指针的当前位置读取指定长度的字符串的函数名是____________
26.代数式s(s?a)(s?b)(s?c)在ＶＢ中的算术表达式是______________
27.阅读下面的Visual Basic程序，分析程序
中n = n + 1的执行次数是
Dim m As Integer, n As Integer
Dim j As Integer, k As Integer m = 3
For j = 1 To m Step 1 For k = -j To 3 Step 2 n = n + 1 Next k m=4
六、写出下列程序的运行结果 1．窗体中有一命令按钮，此按钮单击事件程序如下：
Private Sub Command1_Click()
Dim m As Integer Dim a As Integer Dim b As Integer a = 1: b = 2: m = 0 m = vb1(a, b) m = m + a+b Print m End Sub
函数:
Function vb1(w As Integer,
ByVal n As Integer)
w = 100: n = 200 vb1 = w + n End Function
窗体启动后单击命令按钮，最后m的值是 2． 如图所示，图中有一个文本框（名称为T1），两个选项按钮(名称分别为Op1，Op2)，两个复选框(名称分别为Ch1，Ch2)，两个框架，一个命令按钮（Command1），命令按钮的单击事件中代码如下：
提示：函数Instr(位置，字符串1，字符串2)的功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0，位置表示从第几个字符开始查找。 Private Sub Command1_Click()
T1.Text = \
If Op1.Value = True Then
T1.Text = T1.Text + Mid(Op1.Caption, InStr(1, LCase(Op1.Value), \
End If
If Op2.Value = True Then
T1.Text = T1.Text + Mid(Op2.Caption, InStr(1, LCase(Op2.Value), \
End If
T1.Text = T1.Text + Mid(Ch1.Caption, 1, Ch1.Value + 1)
T1.Text = T1.Text + Mid(Ch2.Caption, 1, Ch2.Value + 1)
End Sub
窗体启动后,先选中如图所示的各选项,然后再单击命令按钮,此时文本框中显示内容是______分析下面ＶＢ程序段 Dim i%,j%,s%
Dim a(2to 4,3 to 7)as integer S=0
For i =1 to 2 For j=1 to 2
If (i+j) mod 2 =0 then S=s+LBound(a,j) Else
S=s+UBound(a,j) End if Next j,i Print s
上面程序运行后，Ｓ的值是_____ 3.分析下面ＶＢ程序段
如图所示，图中有两个列表框，左边的是List1,右边的是List2，一个命令按钮Command1，窗体和命令按钮的单击事件中均有代码，程序段如下： Private sub form_click() List1.additem “aaaaa” List1.additem “bbbbb”
List1.additem “ccccc” End sub
Private sub command1_click() Dim k as integer K=list1.listcount-1
List2.additemlist1.list(list1.listindex)
List1.removeitem list1.listindex List1.removeitem k-1 End sub
窗体启动后先单击窗体，然后选中如图所示的列表框中的项目，再单击命令按钮，左边列表框中显示内容是_____________ 七、程序改错
1．下面的程序是将一输入的字符串进行分类赋值，方法：从字符串的最左端开始截取一字符，然后进行判断，数字字符放入数组a中，将其它字符放入数组b中，然后继续处理下一个字符，直至全部处理完，最后分类打印，程序中有两处错误，请将错误行和正确的全行写在答题纸相应的横线上。Dim a(100) As Integer Dim b(100) As Integer Dim c As String Dim i As Integer Dim j As Integer Dim k As Integer Dim m As Integer Dim w As String
c = InputBox(\k = Len(c) For i = 1 To k w = Right(c, 1) c = Right(c, k - 1)
If w >= \a(j) = w: j = j + 1 Else
b(m) = Asc(w): m = m + 1
End If c=c-w Next i Print
For i = 0 To j - 1 Print a(i); Next i Print
For i = 0 To m - 1 Print Chr(b(i)); Next i Print
2．窗体中（如图所示）有一定时器控件(名称Timer1), 每2秒钟触发一次Timer事件，有两个标签用于提示后面的控件名称，一文本框Text1，一滚动条（名称HS1）。窗体启动后（此图为窗体刚启动时的状态），滚动框根据计时器事件向右移动，但当单击滚动框左端后，滚动框开始向左移动，当单击滚动框右端后，滚动框开始向右移动，文本框中的文字大小随滚动条的值变化。窗体通用部分声明了两个变量，后面给出了三个事件过程。程序中共有两处错误分布在三个事件过程中(每个事件过程中最多有一处错误)，请将错误行和正确行写在答题纸相应的横线上。( Visual Basic题)（提示：Form_Activate()表示窗体变为活动窗体后触发的事件）
窗体通用部分声明代码：
Dim A As Integer ‘变量A用于确定滚动框向左（为0）还是向右（为1）滚动 Dim W As Integer Private Sub Form_Activate()
W = HS1.Value A=0 End Sub
Private Sub HS1_Change()
If W Private Sub Timer1_Timer() If Text1.FontSize < 10 Then Text1.FontSize = 11 If Text1.FontSize > 80 Then Text1.FontSize = 79 If A = 1 Then Text1.FontSize = Text1.FontSize + 1 Else Text1.FontSize = Text1.FontSize - 1 End If End Sub 3.下面的程序是将一个十进制整数转换成二进制数，转换后按拉放到一维数组ａ中，然后输出，如输入一个数据８，将输出１０００。程序中有两处错误，请改正。 Dim a(10) as integer Dim k%,yu%,i% I =1 K=inputbox(“input k”) Do while k<>0 Yu =k/2 A(i)=yu K=k\\2 I=i+1 Loop For yu =i to 1 step -1