VB模拟试题专升本.docx

VB模拟试题专升本.docx

《VB模拟试题专升本.docx》由会员分享，可在线阅读，更多相关《VB模拟试题专升本.docx（10页珍藏版）》请在冰豆网上搜索。

VB模拟试题专升本

VisualBasic程序设计模拟试题

一、选择题 

（1）-（35）题每题1分，共35分。

下列各题A）、B）、C）、D）四个选项中,只有一个选择是正确的

（1） 下列不能打开属性窗口的操作是 。

A） 执行"视图"菜单中的"属性窗口"命令 

B） 按F4键 

C） 按Ctrl+T 

D） 单击工具栏上的"属性窗口"按钮 。

（2） 下列可以打开立即窗口的操作是 。

A） Ctrl+D B） Ctrl+E C） Ctrl+F D） Ctrl+G 

（3） inputBox函数返回值的类型为 。

A） 数值 B） 字符串 

C） 变体 D） 数值或字符串（视输入的数据而定） 

（4） 可以同时删除字符串前导和尾部空白的函数是 。

A） Ltrim B） Rtrim C） Trim D） Mid 

（5） 表达式int（68.555*100+.5）/100的值是 

A） 68.54 B） 68.56 C） 68.55 D） 68.5 

（6） 如果在立即窗口中执行以下操作：

a=8  （是回车键，下同） 

b=9  

print a>b  

则输出结果是 。

A） -1 B） 0 C） False D） True 

（7） 以下语句的输出结果是 。

Print Format $（32548.5,"000,000.00"） 

A） 32548.5 B） 32,548.5 C） 032,548.50 D） 32,548.50 

（8） 执行以下程序段后，变量c$的值为 

a$="Visual Basic Programing" 

b$="Quick" 

c$=b$ & UCase（Mid$（a$,7,6）） & Right $ （a$,11） 

A） Visual BASIC Programing 

B） Quick Basic Programing 

C） QUICK Basic Programing 

D） Quick BASIC Programing 

（9） 为了在按下鼠标左键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。

A） Value B）  EnabledC） Cancel D）  Default

（10） 为了把焦点移到某个指定的控件，所使用的方法是 

A） SetFocus B） Visible C） Refresh D） GetFocus 

（11） 设a=6，则执行 x=IIf（a>5,-1,0）后，x 的值为 。

A） 5 B） 6 C） 0 D） -1 

（12） 执行下面的程序段后，x 的值为 。

x=5 

For i=1 To 20 Step 2 

x=x+i\5 

Next i 

A） 21 B） 22 C） 23 D） 24 

（13） 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） 

For i=1 To 4 

x=4 

For j =1 To 3 

x=3 

For k=1 To 2 

x=x+6 

Next k 

Next j 

Next i 

Print x 

End Sub 

程序运行后，单击命令按钮，输出结果是 。

A） 7 B） 15 C） 157 D） 538 

（14） 在窗体上画一个命令按钮，然后编写如下事件过程：

Prevate Sub Command1_Click（） 

x=0 

Do Until x=-1 

a = InputBox（"请输入A的值"） 

a = Val（a） 

b = InputBox（"请输入B的值"） 

b = Val（b） 

x = InputBox（"请输入x的值"） 

x = Val（x） 

a = a+b+x 

Loop 

Print a 

End Sub 

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。

A） 2 B） 3 C） 14 D） 15 

（15） 在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：

Private Sub Command1_Click（） 

a=Text1.Text+Text2.Text 

Print a 

End Sub 

Private Sub Form_Load（） 

Text1 Text="" 

Text2 Text="" 

End sub 

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。

A） 444 B） 321123 C） 123321 D） 132231 

（16） 阅读下面的程序段：

For i=1 To 3 

For j=1 To i 

For k=j To 3 

a=a+1 

Next k 

Next j 

Next i 

执行上面的三重循环后，a 的值为 。

A） 3 B） 9 C） 14 D） 21 

（17） 在窗体上画一个文本框（其中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 

上述程序的运行结果是 。

A） 在文本框Text1中输出55 

B） 在文本框Text1中输出0 

C） 出错 

D） 在文本框Text1中输出不定值 

（18） 在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

Private Sub Command1_Click（） 

x=0 

Do While x<50 

x=（x+2）*（x+3） 

n=n+1 

Loop 

Text1.Text=Str（n） 

Text2.Text=Str（x） 

End Sub 

程序运行后，单击命令按钮，在两个文本框中显示的值分别为 

A） 1和0 B） 2和72 C） 3和50 D） 4和168 

（19） 用下面语句定义的数组的元素个数是 。

Dim A （-3 To 5） As Integer 

A） 6 B） 7 C） 8 D） 9 

（20） 以下程序的输出结果是 

Option Base 1 

Private Sub Command1_Click（） 

Dim a（10）,p（3） As Integer 

k=5 

For i=1 To 10 

a（i）=i 

Next i 

For i=1 To 3 

p（i）=a（i*i） 

Next I 

For i=1 To 3 

k=k+p（i）*2 

Next i 

Print k 

End sub 

A） 33 B） 28 C） 35 D） 37 

（21） 在窗体上面画一个命令按钮，然后编写如下事件过程：

Option Base 1 

Private Sub Commandl_Click（） 

Dim a 

a = Array（1,2,3,4） 

j = 1 

For i = 4 To 1Step -1 

s = s + a（i）*j 

j =j*10 

Next i 

Print s 

End Sub 

运行上面的程序，单击命令按钮，其输出结果是 。

A） 4321 B） 12 C） 34 D） 1234 

（22） 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：

Option Base 1 

Private Sub Commandl_Click（ ） 

Dim a（4,4） 

For i =1 To 4 

For j =1 To 4 

a（i,j） = （i-1）*3+j 

Next j 

Next i 

For i =3 To 4 

For j =3 To 4 

Print a（j,i）; 

Next j 

Print 

Next i 

End Sub 

程序运行后，单击命令按钮，其输出结果为 。

A） 6 9 B） 7 10 C） 8 11 D） 9 12 

7 10 8 11 9 12 10 13 

（23） 假定有如下的Sub过程：

Sub S（x As Single,y As Single） 

t = x 

x =t/y 

y =t Mod y 

End Sub 

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click （ ） 

Dim a As Single 

Dim b As Single 

a =5 

b =4 

S a,b 

Print a,b 

End Sub 

程序运行后，单击命令按钮，输出结果为 。

A） 5 4 B） 1 1 C） 1.25 4 D） 1.25 1 

（24） 阅读程序：

Function F（a As Integer） 

b = 0 

Static c 

b = b+1 

c = c+1 

f = a+b+c 

End Function 

Private Sub Commandl_Click （） 

Dim a As Integer 

a =2 

For i =1 To 3 

Print F（a） 

Next i 

End Sub 

运行上面的程序，单击命令按钮，输出结果为 。

A） 4 B） 4 C） 4 D） 4 

4 5 6 7 

4 6 8 9 

（25） 阅读程序：

Sub subP（b（） As Integer） 

For i =1 To 4 

b（i）=2*i 

Next i 

End Sub 

Private Sub Commandl_Click（） 

Dim a（1 To 4）As Integer 

a 

（1）=5 

a 

（2）=6 

a （3）=7 

a （4）=8 

subP a （） 

For i =1 To 4 

Print a（i） 

Next i 

End Sub 

运行上面的程序，单击命令按钮，输出结果为 。

A）2 B）5 C）10 D）出错 

4 6 12 

6 7 14 

8 8 16 

（26） 下列不能打开菜单编辑器的操作是 。

A）按Ctrl+E 

B）单击工具栏中”菜单编辑器"按钮 

C）执行"工具"菜单中的"菜单编辑器"命令 

D）按Shift + Alt + M 

（27） 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为 。

A） MenuItem. Enabled=False 

B） MenuItem. Enabled=True 

C） MenuItem. Visible=True 

D） Menultem. Visible=False 

（28） 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 。

A） Move B） Change C） Scroll D） GetFocus 

（29） 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。

A） Label1. BackStyle=0 

Label1.Borderstyle=0 

B） Label1.BackStyle=1 

Label1.Borderstyle=1 

C） Label1.BackStyle=True 

Label1.BorderStyle=True 

D） Label1.BackStyle=False 

Label1.Borderstyle=False 

（30） 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：

Private Sub Form_Load （） 

List1.AddItem"357" 

List1.AddItem"246" 

List1.AddItem"123" 

Listl.AddItem"456" 

Text1.Text="" 

End Sub 

Private Sub List1_ DblClick （ ） 

a =List1.Text 

Print a+Text1.Text 

End Sub 

程序运行后，在文本框中输”789"（见图1），然后双击列表框中的"456"，则输出结果为 。

A） 1245 B） 456789 C） 789456 D） 0 

（31） 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 。

A） Visible B） Timer C） Enabled D） Interval 

（32） 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 。

A）Get文件号，记录号，变量名 

B）Get文件号，变量名，记录号 

C）Put文件号，变量名，记录号 

D）Put文件号，记录号，变量名 

（33） 对窗体编写如下事件过程：

Private Sub Form _MouseDown（Button As Integer, _ 

Shift As Integer, X As Single Y As Single） 

If Button =2 Then 

Print "AAAAA" 

End If 

End Sub 

Private Sub Form _ MouseUp（Button As Integer, _ 

Shift As Integer, X As Single, Y As Single） 

Print "BBBBB" 

End Sub 

程序运行后，如果单击鼠标右键，则输出结果为　　　　。

A） AAAAA B） BBBBB C） AAAAA D） BBBBB 

BBBBB AAAAA 

（34） 为了在运行时能显示窗体左上角的控制框（系统菜单），必须　　　　。

A） 把窗体的Contro1Box 属性设置为Fale,其他属性任意 

B） 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1. 

C） 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值 

D） 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值 

（35） 对窗体编写如下代码：

Option Base 1 

Private Sub Form_KeyPress（KeyAscii As Integer） 

a = Array（237,126,87,48,498） 

m1 = a

（1） 

m2 = 1 

If KeyAscii = 13 Then 

For i =2 To 5 

If a（i）>ml Then 

m1 =a（j） 

m2 =i 

End If 

Next i 

End If 

Print m1 

Print m2 

End Sub 

程序运行后，按回车键，输出结果为 

A） 48 B） 237 C） 498 D） 498 

4 1 54 

二、填空题（每空２分，共30分） 

（1）设有如下的Visual Basic表达式：

5 * x^2 - 3 * x - 2 * Sin（a）/3 

它相当于代数式【1】 。

（2）执行下面的程序段后，s的值为 【2】 。

s = 5 

For i = 2.6 To 4.9 Step 0.6 

s = s+1 

Next i 

（3）表达式Fix（-32.68）+Int（-23.02）的值为 【3】 。

（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。

（5）在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） 

a = InputBox（"请输入一个整数"） 

b = InputBox（"请输入一个整数"） 

Print a + b 

End Sub 

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。

（6） 执行下面的程序段后，b的值为【6】 。

a=300 

b=20 

a=a+b 

b=a-b 

a=a-b 

（7） 以下程序段的输出结果是【7】 。

num=0 

While num<=2 

num=num+1 

Print num 

Wend 

（8） 在窗体画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） 

Dim a（1 To 10） 

Dim p（1 To 3） 

k=5 

For i=1 To 10 

a（i）=i 

Next i 

For i=1 To 3 

p（i）=a（i*i） 

Next i 

For i=1 To 3 

k=k+p（i）*2 

Next i 

Print k 

End Sub 

程序运行后，单击命令按钮，输出结果是【8】 。

（9） 下面的程序用"冒泡"法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。

Option Base 1 

Private Sub Command1_Click（） 

Dim a 

a=Array（678,45,324,528,439,387,87,875,273,823） 

For i=【9】 

For j=【10】 

If a（i） 【11】 a（j） Then 

a1=a（i） 

a（i）=a（j） 

a（j）=a1 

End If 

Next j 

Next i 

For i=1 To 10 

Print a（i） 

Next i 

End Sub 

（10） 在窗体画一个命令按钮，然后编写如下过程：

Function fun（ByVal num As Long）As Long 

Dim k As Long 

k=1 

num=Abs（num） 

Do While num 

k=k*（num Mod 10） 

num=num\10 

Loop 

fun=k 

End Function 

Private Sub Command1_Click（） 

Dim n As Long 

Dim r As Long 

n=InputBox（"请输入一个数"） 

n=CLng（n） 

r=fun（n） 

Print r 

End Sub 

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。

（11） 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】 。

（12） 假定建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。

在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。

Private Sub Command1_Click（） 

【14】 Form1 

Form2. 【15】 

End Sub 

三、编程题（第1题10分，第2题15分）

1、求1到100之间所有偶数的和。

2、设计一个程序，程序名为：

PRG2，功能是根据分数>=90、>=80、>=60、<60，返回优秀、良好、及格、不及格。

〖完〗 

一、选择题 

（1） C 

（2） D （3） B （4） C （5） B 

（6） C （7） C （8） D （9） B （10） A 

（11） D （12） A （13） B （14） A （15） C 

（16） C （17） C （18） B （19） D （20） A 

（21） D （22） D （23） D （24） B （25） A 

（26） D （27） A （28） C （29） A （30） B 

（31） C （32） D （33） A （34） B （35） C 

2sin（a）

二、填空题 

3

（1） 5x2-3x- 

（2） [2] 9 

（3） [3] -56 

（4） [4] Picturel.Picture = LoadPicture（"picfile.jpg"） 

（5） [5] 321456 

（6） [6] 300 

（7） [7] 1 

2 

3 

（8） [8] 33 

（9） [9] 1 To 9 

[10] i+1 To 10 

[11] >= 

（10） [12] 24 

（11） [13] - 

（12） [14] Unload 

[15] Show