vb.net题型参考

上海应用技术学院VB试卷

一 选择题(20')

1. 下列变量名中，合法的变量名是（A ）

A．C24 B.A B C.A：B D.1+2

2. 请问将数据输出显示的时候，以下哪种方式不适用？D ．．．

A.标签label B.文本框textbox C.msgbox函数 D.inputbox函数

3. 以下哪个函数计算结果不是．．6？D

A.Len（""） B.Int(6.5) C.15 mod 9 D.15 / 9

4. 若要使命令按钮不可用，则可设置其（ C ）属性为False来实现。

Ａ、Value Ｂ、Cancel Ｃ、Enabled Ｄ、Default

5. 。

A．Dim a(3, 4) As Integer B．Dim a［3, 4］As Intege

C．Dim a(3, 4) As Intege D．Dim a(3 4) As Intege

6. 下列控件中，没有Text属性的是

A．框架 B．列表框 C．单选框 D．定时器

7. 在设计状态，列表框中的选项可以通过属性设置

A．List B．Items.Count C．Items D．Text

8. 要调整某控件的宽度，应修改 C 属性。

A．Top B．Left C．Width D．Height

9. 设置计时器时间间隔的属性是

A．Enabled B．Name C．Interval D．Modifiers

10. 已知a=12，ｂ＝20，复合赋值语句“a*=b+10”执行后，a变量中的值为

A．50 B．250 C．30 D．360

二、综合题(30')

1.数学表达式a<=x<=b在中应如何表达？

a<=x and x<=b

2.过程和函数的区别有哪些？

见复习PPT

x e3

ln(3x)在vb中如何表示？ 3.sin15 |x y|0

Sin(15*3.14/180)+sqrt(x+exp(3))/abs(x-y)-log(3*x)

4.计算下列循环语句的次数

For i=-1 to 18 strp 3

7次

5.for i=1 to 10

a: k=k+1

上海应用技术学院VB试卷

for j=1 to 3

b: m=m+k

next j

next i

请问a执行了几次，b执行了几次？

a执行了10次，b执行了30次

三、读程题（3'*54=12'）

1.请写出程序运行后的结果

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim i%, s$

Dim s1 As String = "★★★★★★★★★★★"

For i = 1 To 5

s = Mid(s1, 1, 11 - 2 * i)

Label1.Text &= Space(2 * i) & s & vbCrLf

Next

For i = 1 To 4

s = Mid(s1, 1, 2 * i + 1)

Label1.Text &= Space(10 - 2 * i) & s & vbCrLf

Next

End Sub

运行结果如图所示

上海应用技术学院VB试卷

2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim a(5, 5) As Integer

Dim i%, j%

For i = 1 To 3

For j = 1 To 4

a(i, j) = i * j

Next

Next

For i = 1 To 3

For j = 1 To 4

Label1.Text &= a(i, j) & " "

Next

Label1.Text &= vbCrLf

Next

End Sub

当单击命令按钮后，标签中显示内容为：

3.用户点击button1后出现什么结果？

上海应用技术学院VB试卷

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim i As Integer

For i = 5 To 1 Step -0.8

TextBox1.Text &= Int(i)

Next i

End Sub

4.用户点击button1后出现什么结果？

Public Sub Proc(ByRef a%())

Static i%

Do

a(i) = a(i) + a(i + 1)

i = i + 1

Loop While i < 2

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim i%, x%(10)

For i = 0 To 4 : x(i) = i + 1 : Next i

上海应用技术学院VB试卷

For i = 1 To 2 : Call Proc(x) : Next i

For i = 0 To 4 : Label1.Text &= x(i) & " " : Next i

End Sub

四、编程题(38')

1.编写程序实现税务部门征收所得税，规定如下：

收入在200元以内，免征；

收入在200~400元内，超过200元的部分纳税3%；

收入在400~4000元内，超过200元的部分纳税4%；

收入在4000元或超过时，超过200元的部分税金为5%。

由输入对话框textbox1输入的收入金额，编程计算并用输出对话框输出总的纳税金额。

2. 设计界面并编写程序实现,要求输入加班总时间，加班时间控制在8小时之内的整数，如果加班时间小于2小时，按照30/小时计算；如果加班时间大于2小时，按照20/小时计算，请设计界面并计算用户的加班收入。

3. 编写程序完成,随机产生20个[10，100]之间的整数，输出这20个数，并求这批数的最大值及最大值位置。

4.编写过程实现,查找用户输入的一行文字中是否含有“VB”，如果有，输出“VB”出现的次数。

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