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 。

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属性的是 d 。

A．框架 B．列表框 C．单选框 D．定时器 7. 在设计状态，列表框中的选项可以通过 c 属性设置

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

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

A．Top B．Left C．Width D．Height 9. 设置计时器时间间隔的属性是 c 。

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

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

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

二、综合题(30')

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

x>=a and x<=b

2.过程和函数的区别有哪些？ 子过程与函数特点（异同）：

① 子过程Sub，不直接返回值或者传递多个值； ② 函数Function直接返回一个值。 ③ 都是完成特定功能的程序代码段。

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

4.计算下列循环语句的次数 For i=-1 to 18 strp 3

5.for i=1 to 10

a: k=k+1 for j=1 to 3 b: m=m+k next j next i

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

10,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

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

Label1.Text &= a(i, j) & \ \ Next

Label1.Text &= vbCrLf Next End Sub

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

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

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

54321

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 For i = 1 To 2 : Call Proc(x) : Next i

For i = 0 To 4 : Label1.Text &= x(i) & \ End Sub 35745

四、编程题(38')

1.税务部门征收所得税，规定如下： 收入在200元以内，免征；

收入在200~400元内，超过200元的部分纳税3%； 收入在400~4000元内，纳税4%； 收入在4000元或超过时，税金为5%。

由输入对话框输入的收入金额，编程计算并用输出对话框输出总的纳税金额。 2. 要求输入加班总时间，加班时间控制在8小时之内的整数，如果加班时间小于2小时，按照30/小时计算；如果加班时间大于2小时，按照20/小时计算，请设计界面并计算用户的加班收入。

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

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

1.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myincome As Single Dim mytax As Single

myincome = Val(TextBox1.Text)

If myincome <= 200 Then mytax = 0

ElseIf myincome <= 400 Then

mytax = (myincome - 200) * 0.03 ElseIf myincome <= 4000 Then mytax = (myincome - 200) * 0.04 Else

mytax = (myincome - 200) *0.05 End If

TextBox2.Text = mytax

End Sub End Class

3. 数组一

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a%(19)

Dim i% Dim max%

Randomize() For i = 0 To 19

a(i) = Int(Rnd() * 91) + 10 TextBox1.Text &= a(i) & Space(2) Next

TextBox1.Text &= vbNewLine max = a(0)

For i = 1 To 9

If max < a(i) Then max = a(i) Next

TextBox1.Text &= \ & max & Space(2) End Sub End Class

4.Public Class Form1

Function Count%(ByVal st$) Dim i% Count = 0

i = InStr(st, \) Do While (i > 0) Count = Count + 1 st = Mid(st, i + 1) i = InStr(st, \) Loop End Function

Sub Procthe(ByVal st$, ByRef Count%) Dim i% Count = 0

i = InStr(st, \) Do While (i > 0) Count = Count + 1 st = Mid(st, i + 1) i = InStr(st, \) Loop End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = Count(TextBox1.Text) End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim num%

Call Procthe(TextBox1.Text, num) TextBox3.Text = num End Sub End Class

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