福建省高职单招计算机考试模拟卷(2)

9．当计算机显示屏幕保护图像时，应立即进行冷启动。( )

10．在Visual Basic中，声明全局变量所使用的关键字是Public。 （ ） 11．在因特网中可以有两个相同的域名存在。 ( )

12．对于双绞线来说，随着线缆长度的增加，信号衰减也增加。( )

13．因特网上每台计算机被赋予一个不同的地址，称IP地址，某台计算机的IP地址是“257.96.208.5”。 ( )

14．与Internet的连接可以通过电话线和调制解调器，也可以通过局域网连接。 ( )

15．Ping命令的功能是查看DNS、IP、MAC等信息的。 ( )

四、阅读分析题 （阅读分析下面VB程序，将正确的运行结果填入指定的下划线上。每小题6分，共60分）

1．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() a = InputBox("输入第一个整数：") b = InputBox("输入第二个整数：") Print a + b End Sub

程序运行时，单击命令按钮后，先后在两个输入对话框中输入111 和222，则显示的结果是：___ _______。

2．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click()

计算机专业模拟卷

a =20 b =30

Print int(a + b/a) End Sub

程序运行时，单击命令按钮后显示的结果是：___ ______________。 3．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() x = 5 While x > 0 s = s + x x = x - 1 Wend Print s End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 4．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer a = 30 b = 45 c = 25

If a >= b And a >= c Then Print a

ElseIf b >= a And b >= c Then Print b Else

计算机专业模拟卷

Print c End If End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 5．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim s as Integer S=0

For I=1 to 3

For j=1 to 5 step 2

S=s+1

Next j

Next I Print s End sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 6．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(100) For i = 1 To 100 arr(i) = 2 * i Next i

Print arr(arr(13) - 1) End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 7．窗体上有一个名为Command1的命令按钮，并有下面的程序：

计算机专业模拟卷

Private Sub Command1_Click() x = 0

Do Until x>=50 x = (x + 2) * (x + 3) n = n + 1 Loop

Text1.Text = Str(x) End Sub

程序运行时，单击命令按钮后，在text1文本框中显示的值是：____________。

8．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim Fib(10) As Integer Fib(1) = 1 Fib(2) = 1 For i = 3 To 10

Fib(i) = Fib(i - 1) + Fib(i - 2) Next i Print Fib(8) End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 9．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim a$, b$, c$, k% a = "ABCD" b = "123456"

____

计算机专业模拟卷

c = "" k = 1

Do While k <= Len(a) Or k <= Len(b) If k <= Len(a) Then c = c & Mid(a, k, 1) End If

If k <= Len(b) Then c = c & Mid(b, k, 1) End If k = k + 1 Loop Print c End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 10．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5) As Integer For k = 1 To 5 arr(k) = k Next k prog arr() For k = 1 To 5 Print arr(k); Next k End Sub

Sub prog(a() As Integer)

计算机专业模拟卷

n = UBound(a)

For i = n To 2 Step -1 For j = 1 To n - 1 If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i

End Sub程序运行时，单击命令按钮后显示的结果是：____ ____________。 五、程序填空题（请正确填充下面的VB程序，使其完成所要求的功能。每空3分，共30分）

1．下面事件过程的功能是：输出100 以内个位数为8 且能被３整除的所有数，在横线上填上适当内容。

Private Sub Command1_Click() Dim i%, a%

For i = 0 To ____ _（1）___________ a = i * 10 + 8

If ____ （2） ____________Then Print a Next I End Sub

2．窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。

计算机专业模拟卷

Option Base 1

Private Sub Command1_Click() Dim city As Variant

city = ____ （3）____________ ("北京", "天津", "上海", "重庆") For i = （4） To UBound(city) Combo1.AddItem ____ （5）____________ Next End Sub

3．比赛评分程序。在窗体上建立一个文本框、一个标签框和三个命令按钮，单击“输入评分”命令按钮，分别输入评委人数及各个评委的评分，单击“计算得分”命令按钮则计算并将最后得分显示在Text1文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），要求输入评分之前，“计算得分”按钮失效（变灰），如图5-28所示。以下是实现上述功能的程序，请填空。

图5-28

Option Base 1

Dim a() As Single, n As Integer Private Sub Form_Load()

Command2.Enabled = ____ （6） _____________ End Sub

Private Sub Command1_Click() n = InputBox("请输入评委人数：") _____ _____（7）

_______ _____

计算机专业模拟卷

For i = 1 To n

____ _（8）____________ = InputBox("请输入评委评分：") Next i

Command2.Enabled = True End Sub

Private Sub Command2_Click() Dim sum As Single, aver As Single Dim max As Single, min As Single max = a(1): min = a(1): sum = a(1) For i = _____ （9）________________ sum =____ _（10）___________ ______ If max < a(i) Then max=a(i) I …… 此处隐藏：2495字，全部文档内容请下载后查看。喜欢就下载吧 ……