高职招考VB模拟题

高职招考VB模拟题

一、单选题

1、下列表述中不能判断x是否为偶数的是( )

A、x/2=Int(x/2) B、x Mod 2=0 C、Fix(x/2)=x/2 D、x\2=0

2、设窗体上有1个滚动条,要求单击滚动条右端的微调按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是( )

A、Max B、Min C、SmallChange D、LargeChang

3、设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是( )

A、Combo1.RemoveItem Combo1.Text B、Combo1.RemoveItem 4

C、Combo1.RemoveItem Combo1.ListCount D、Combo1.RemoveItem 5

4、用于获得字符串S从第2个字符开始的3个字符的函数是（ ）

A、Mid$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3)

5、在窗体中添加一个命令按钮，名称为CMD1，然后编写如下程序；

Private Sub CMD1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Print "456"

End If

End Sub

Private Sub CMD1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "123"

End Sub]

程序运行后，在命令按钮上单击鼠标右键，则在窗体上显示的内容是（ ）

A、123456 B、456 C、456123 D、123

6、要清除图片框中的图片应使用以下哪种方法（ ）

A、Picture1.visible= false

B、Picture1.Cls

C、Picture1.picture=“”

D、Picture1.picture= LoadPicture(“”)

二、填空题

1、语句DIM arr(-3 to 5, 2 to 6) AS INTEGER定义的数组元素有 个。

2、若要屏蔽框架上的控件对象，则需要设置 属性值为False。

3、产生区间[10，99]间随机整数的表达式为 。

4、在设计菜单时，要在菜单中加入一个菜单分隔项，则菜单分隔项的标题需设置为 。

5、在VB中，设A=2，B=-4，则表达式A^3\4>5+B AND “AB”<“12”的值是 。

6、在ＶＢ中，要删除列表框（Ｌist1）中的指定的项目应使用的方法为 .

三、阅读分析题

1、dim x(3,5)

for i=1 to 3

for j=1 to 5

x(i,j)=x(i-1,j-1)+i+j

next j,i

print x(3,4)

上面程序运行时输出的结果为 。

2、以下程序段的输出结果为 。

X=1

Y=4

Do until y>4

X=x*4

Y=y+1

Loop

Print x

3、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： private sub command1_click( )

Dim intA(4) As Integer

Dim intB(4) As Integer

Dim i As Integer

For i = 0 To 2

intA(i + 1) = i * 2 + 1

intB(3 - i ) = intA(i + 1)

Next i

Print intB(i)

End sub

程序运行后的结果是 。

4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Static x As Integer

For i=1 To 2

y=y+x

x=x+2

Next

Print x,y

End Sub

程序运行后，连续三次单击Command1按钮后，窗体上最后一次的结果是

5、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

Dim x As Integer

Do

X=x+1

s=s+x

x=(x+2)*x

loop until x>15

print “s=”;s,“x=”;x

End Sub

程序运行后的结果是 。

6、在窗体上画一个命令按钮，然后编写如下程序：

private sub command1_click()

dim i as integer

for I=0.5 to 8.5 step 2.5

s=s+I*10

next I

print s,I

end sub

程序运行后，单击命令按钮，在窗体上的的输出结果为 。

7、以下程序运行后，单击窗体，输出结果是

Private Sub form_click()

Dim m As Integer

Dim n As Integer

m = 3: n = 5

Print m, n, test(m, n)

End Sub

Private Function test(x As Integer, ByVal y As Integer)

x = x + y: y = x - y

test = x * y

End Function

8、在窗体上画一个命令按钮，然后编写如下程序：

Private sub command1_click ( )

Dim a(1 to ３,２ to 4) as integer

For I=1 to ３

For j=２ to 4

A(I,j)=I*2+j*３

Next j

Next I

Print a(2,3)+a(3,2)

Endsub

程序运行后，单击命令按钮，在窗体上的的输出结果是 。

9、在窗体上画一个命令按钮，然后编写如下程序：

private sub command1_click( )

dim inta as integer

x=1

inta=inputbox("请输入a的值：")

select case inta

case 1 to 4

x=x+1

case 5 to 10

x=x+2

case 8

x=x+3

case else

x=x+4

end select

print x

end sub

程序运行后，单击命令按钮，在弹出的对话框中输入８，则窗体上的的输出结果是 。

四、程序填空题

1、下面函数计算两个非负整数m与n的最小公倍数。请在空白处填入适当内容将程序补充完整。

Private Sub command1_click()

Dim m As Integer

Dim n As Integer

m = Val(InputBox("请输入整数M：", m))

n = Val(InputBox("请输入整数N：", n))

For I = 2 To m If m Mod I = 0 And _______(1)__________ Then

k = I

End If _____(2)___________ s= (3)

print “最小公倍数为：”,s

End Sub

2、窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 Private Sub Form_Load()

For i=1 To 100

If i Mod 7 =0 Then

(4)

End If

Next

End Sub

Private Sub Command1_Click()

Sum = 0

For i = 0 To (5)

Sum = Sum + (6)

Next

Text1.Text = Sum

End Sub

4、求所有满足条件的四位数ＡＢＣＤ，它是１１的倍数，且第三位数加上第二位数等于第一位数（即Ａ＝Ｂ＋Ｃ）。

Private sub command1_( )

Dim I as integer

Dim b as integer,c as integer For I= (7)

A= I \ 1000

B= I \100 mod 10 C= (8) If (9) and a=b+c then

Print I;

End if

Next I

End sub

5、打印输出如下数组的前20项,并要求每行输出4个数：

1，1，3，7，17，41

private sub command1.click( )

dim a(1 to 20) as long

a(1)=1

a(2)=1 for I= (10) to 20 (11)

next I

for I=1 to 20

print a(i); if (12) then

print

end if

next I

end sub

本文来源：https://www.bwwdw.com/article/5m91.html