原创力文档- 1、本文档共7页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
会考形式：上机，45分钟，100分满分
题型及分值
必修（信息技术基础） 共58分
选择题 3分×6小题＝18分
操作题 excel操作题 5分×4小题＝20分
网页制作 5分×4小题＝20分
选修（算法与程序设计） 共42分
选择题 3分×8小题＝24分
操作题 6分
填空题3题 3分×2小题＋6分×1小题＝12分
一、按程序语言在form上添加控件
1、在窗体中添加一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i
For i = 1 To 10 Step 2
i = i + 1
Print i;
Next i
End Sub
单击命令按钮，程序的执行结果为（ ）。求循环过程中i值
A．2 4 6 8 10 12 B．1 3 5 7 9 11
C．2 5 8 D．2 5 8 11
2、阅读下列程序并写出程序的运行结果
Private Sub Command1_Click()
Text1.Text=2
Text2.Text=3
Text3.Text= Text1.Text+ Text2.Text
Text4.Text= Val(Text1.Text)+ Val(Text2.Text)
End Sub
文本框Text3和Text4的结果分别是：
3、当执行以下过程时，
Private Sub Command1_Click( )
Text1.Text=努力
End Sub
Private Sub Command2_Click( )
Text1.Text=学习
End Sub
单击Command2按钮，又单击Command1按钮，在文本框中显示什么？
4、阅读下列程序并写出程序的运行结果
Private Sub Form_Click()
Static Sum As Integer
For I = 1 To 2
Sum = Sum + I
Next I
Print Sum
End Sub
点击窗体两次后，变量Sum的值是：
二、自己添加命令按钮控件
5、程序执行后，输出的结果是（ ）
a = 1: b = 2: c = 3
a = b: b = c: c = a
label1.caption=str(c)
A．0 B．1 C．2 D．3
6、当执行以下过程时，在窗体上将显示（ ）
Print “VB”
Print“Hello!”；
Print “VB”
A、 VB Hello! VB
B、 VB Hello!
VB
C、 VB
Hello! VB
D、 VB
Hello!
VB
7、下列是一段Visual Basic程序
y=1
For i=1 To 7 Step 3
y=y*i
Next i
Msgbox (Str$(y))
该程序运行结果是：
（A） 1 （B） 4 （C） 7 （D） 28
8、文本框Text1的输出结果是：
a = 1
b = 2
c = 3
Text1.Text = c a + b Or b - 1 c - 1 And c + a a Xor b c - 2
9、运行下列程序
x = Val(InputBox(请输入一个正整数=))
If x 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = s= Str(s)
程序连续运行3次，分别输入：6、5、4时，分别写出文本框Text1的值。
10、有如下Visual Basic程序段：
x = -1.1
If x 0 Then Label1.Caption = Positive
If x = 0 Then Label1.Caption = Zero
If x 0 Then Label1.Caption = Negative
该程序段运行后, Label1标签上显示为_____
文档评论（0）