vb练习题

1. 设置控件的背景图案为Photo.jps，应使用下面________语句。

A.控件名.Image = FromFile(\B.控件名.Image = New Image(\C.控件名.Image = Image(\

D.控件名.Image = Image.FromFile(\

2. 若已定义Dim b() As Integer，则在其后使用________语句是错误的。

A.ReDim b(2)

B.ReDim Preserve b(10) C.ReDim b(n%)

D.ReDim b(2) As String

3. 将文本框TextBox1设置为只能显示不能输入信息，应使用________语句。

A.TextBox1.Width = 0

B.TextBox1.Visible = False C.TextBox1.MaxLength = 0 D.TextBox1.ReadOnly = True

4. 要在D盘根目录下建立一个名为stu.txt的顺序文件，应使用_______语句打开文件。

A.FileOpen(1,\B.FileOpen(1,\C.FileOpen(1, d:\\stu.txt, OpenMode.Input) D.FileOpen(1, d:\\stu.txt, OpenMode.Output)

5. 确定子串在字符串中起始位置的函数是_______。

A.InStr B.Replace C.Mid D.Split

6. 在Do While...Loop循环语句中，若要退出循环，继续执行下一个语句，则应使用_______。

A.Exit While B.Exit Do C.Exit

D.Exit Loop

7. 单击按钮执行如下程序，所弹出的信息框内容为________。

Private Sub Button1_Click(...) Handles Button1.Click Dim s$ = \传值与传地址\ s = ChangeStr(s) MsgBox(s) End Sub

Function ChangeStr(ByRef s$) ChangeStr = Mid(s, 4, 3) End Function A.传地址

B.传值与传地址 C.传值与 D.与传地

8. 在下述绘图方法中，________方法可以绘制扇形图形。

A.DrawArc B.DrawPie

C.DrawRectangle D.DrawEllipse

9. 用Select Case ch语句判断字符变量ch的值是\到\之间的字母，应使用的Case子句

是________。

A.Case A, B, C, D B.Case \

C.Case ch>=\

D.Case ch=\

以下程序的功能是将32位二进制的IP地址转换成“点分十进制”的形式，程序运行界面如图所示。

说明：32位二进制的IP地址由4个字节（每个字节8位）组成。转换方法是将各字节的由8个0或1所组成的二进制数转换成十进制数，再用“.”连接起来，这样就转换成“点分十进制”形式。例如:

32位二进制的IP地址：11000000 10101000 00000111 00011100 192 168 7 28 “点分十进制”形式：192.168.7.28

Private Sub Button1_Click(……) Handles Button1.Click Dim str1, str2, str8 As String Dim i, j, sum As Integer

str1 = Trim(TextBox1.Text)

If ____(1)____ <> 32 Then MsgBox(\不是32位，有错！\) Exit Sub End If str2 = \ For i = 1 To 4 sum = 0

str8 = Mid(str1, (i-1)*8+1, 8) For j = 1 To 8 Next j

str2 = str2 & ____(3)____ If i < 4 Then str2 = str2 & \ Next i

Label1.Text =____(4)____ End Sub

' 提取第i个字节

' 转换为十进制

' 从左到右逐个字节进行转换

sum = sum * 2 + Val(Mid(str8, ____(2)____, 1))

二、程序填空题

以下程序的功能是验证任何大于等于6的偶数均可表示为两个素数之和。例如：6=3+3、8=3+5、……。其中，isprime是判断素数的函数过程。素数是指除了1和本身以外，不能被其他任何正整数整除的数。

程序运行时要求输入一个偶数，选择\计算\按钮后，首先清除列表框中的内容，然后在列表框中显示出6到该数范围内每一个偶数的满足条件的组合。

Public Class Form1

Function isprime(ByVal n As Integer) As Boolean ' 若n是素数，返回True，否则为False Dim i As Integer isprime = ____(1)____ For i = 2 To n - 1

If ____(2)____ = 0 Then isprime = False Next i End Function

Private Sub Button1_Click(……) Handles Button1.Click Dim m As Integer, i As Integer, j As Integer, k As Integer

ListBox1.Items.____(3)____ m = Val(TextBox1.Text)

For i = 6 To m Step 2 ' 对6~m之间的每个偶数进行验证 For j = 3 To i \\ 2 k = i - j

If isprime(j) ____(4)____ Then

ListBox1.Items.Add(i & \ & j & \ & k) End If Next j Next i End Sub End Class

' 求满足条件的素数对

三、程序调试题(本大题3道小题，第1题有3处错，第2题有3处错，第3题有4处错，每改正1处错得3分，共30分)

启动解决方案文件\C:\\KS\\改错A.sln\，请调试改正，并按原文件名和位置保存。正确结果见样例\C:\\样张\\改错题样例A.EXE\。

改错要求：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在该句尾加上注释标记：' ***********。

调试改错题1

下列程序的功能是：文本框中已有一个18位身份证号码，选择\调试改错题1\按钮后，根据身份证号码计算出实际年龄，若年满18周岁并且不超过70周岁，则在下面的标签中显示\你可以考驾照！\，否则标签不显示。程序中有3个错误，请调试改正之。

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

Dim id$, year%, age% id = TextBox1.Text year = Val(Mid(id, 1, 4)) age = 2012 - year

If age >= 18 Or age <= 70 Then Label1.Visible = True

Label1.Caption= \你可以考驾照！\ Else

Label1.Visible = False End If

End Sub

调试改错题2

下列程序的功能是：利用定时器控件实现霓虹灯文字效果。具体要求是，选择\调试改错题2\按钮，文字的颜色随机改变，文字的大小在14~18之间随机改变。程序中有3个错误，请调试改正。

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

Timer1.Enabled = False End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim r%, g%, b% r = Int(Rnd() * 256) g = Int(Rnd() * 256) b = Int(Rnd() * 256)

Label2.Color = Color.FromArgb(r, g, b)

End Sub

' 设置前景颜色

Label2.Font = New Font(\华文彩云\

调试改错题3

以下程序的功能是利用公式计算Sin(x)函数的近似值，x为弧度。求Sin(x)的公式为：

xx3x5x7Sin(x)??????13!5!7!

程序计算到某一项的绝对值小于10-5时结束，同时调用内部函数Sin(x)加以验证。 说明：若ti表示第i项， i=1,3,5,7…, t1=x，则递推计算式为：

ti+2=（-1）* ti * x * x / ((i+1)*(i+2)) 程序中有4个错误，请调试改正之。

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim MySin!, t!, x!, s%, i% i = 1

x = Val(TextBox2.Text) t = x '某项 MySin = x

s = -1 '正负号交替变化 Do While (Math.Abs(t) < 0.00001) t = t * x * x / (i + 1) * (i + 2) MySin = MySin + s * t i = i - 2 s = -s Loop

Label4.Text = \ Label4.Text &= \

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