2010-2011年第二学期试卷

《vb.net 程序设计》 A卷 计算机教学部2011年6月

10.文件按照存储信息的形式分类，可以分为 （12） 文件和 （13） 文件。 11.下面程序段用于显示 （14） 个\。 For i=1 to 4 For j=2 to i

msgBox(\next j next i

12. 设x是一个整型变量，写出x的个位数是奇数的表达式（15） 。 13.对于正在使用的数组x(n),既要增加2个数组元素，又要保留原来数组元素的值，使用的命令是（16）

14.已知a=3.5,b=5.0,c=2.5,d=True,则表达式a>=0 and a+c>b+5 or not d的值是（17） 15.如下数组声明语句，dim a(3,4),则数组a中包含的元素有（18） 个。 16. Vb.net提供了结构化程序设计的三种基本结构，它们是顺序结构、（19） 和（20） 。

三、程序分析与填空(按题目要求答题！每空两分，共30分) (注意将结果写在下面相应横线上)

（1） （2） （3） （4） （5） （6） （7） （8） （9） （10） （11） （12） （13） （14） （15） 1.输入若干字符，统计有多少个元音字母（\）、多少个其他字母，直到按enter键结束，显示结果，不区分字母大小写。其中Y中存放元音字母个数，X中存放其他字母个数。 Dim y%, x%

Private Sub TextBox1_KeyPress(??) Handles TextBox1.KeyPress Dim c As Char

c = UCase(e.KeyChar)

If \ Select Case c

Case （1） y = y + 1 Case Else x = x + 1

（2） End If

If Asc(c) = 13 Then

MsgBox(\元音字母有\个\

A卷 第 5 页 共 10 页

《vb.net 程序设计》 A卷 计算机教学部2011年6月

MsgBox(\元音字母有\个\ End If

End Sub

2. 程序填空找出分别被3,5,7,除余数都为1的最小的5个正整数。 Private Sub Button1_Click(…) Handles Button1.Click Dim CN%, n% CN = 0 n = 1 Do

n = n + 1

If （3） Then MsgBox(n) CN = CN + 1 End If

Loop （4） End Sub

3.百元买百鸡问题，假定小鸡每只5毛钱，公鸡每只2元钱，母鸡每只3元钱，现在又100元钱要求买100只鸡，下面程序列出了所有的购鸡方案，请填空。

Dim x%, y%, z%

Label1.Text = \母鸡 公鸡 小鸡 \ （5）

For y = 0 To 50 z = 100 - x - y

If （6） Then

Label1.Text &= x & Space(9) & y & Space(9) & z & vbCrLf End If Next y Next x

4.设计一个如图所示的文件加密程序，左边的文本框显示打开的文件内容，右边文本框显示经加密的内容，下面程序段功能是打开文件，请填空（加密和保存文件省略）

A卷 第 6 页 共 10 页

《vb.net 程序设计》 A卷 计算机教学部2011年6月

Private Sub Button1_Click(…) Handles Button1.Click Dim ch As Char

OpenFileDialog1.ShowDialog()

FileOpen(1, （7） , （8） ) TextBox1.Text = \

Do While （9） ch = InputString(1, 1)

TextBox1.Text = TextBox1.Text + ch Loop

（10）

End sub

5.下面的程序是将输入的一个数插入到递减的有序数列中，插入后该序列仍为有序。表单上有一个label1控件，当输入12时，最后输出结果例如19,17,15,13,12,11,9,注意结果中包含“，”。

Private Sub Button1_Click(…) Handles Button1.Click Dim i%, n%, m%

Dim a() As Integer = {19, 17, 15, 13, 11, 9}

n = （11） ReDim Preserve a(n + 1)

m = Val(InputBox(\输入欲插入的数\

For i = UBound(a) - 1 To 0 （12）

If m >= a(i) Then

（13） If i = 0 Then a(i) = m Else

（14） Exit For End If Next i

For i = 0 To UBound(a) （15） Next i End Sub

四、读程序，写结果（共20分） (注意将结果写在下面相应横线上)

（1） （2） （3） （4） （5） （6） （7） （8） （9） （10） （11） （12） 1.下面程序运行结果为，要求如果需要输出空格用S代替，例如空格*,表示为S*。(3分)

A卷 第 7 页 共 10 页

《vb.net 程序设计》 A卷 计算机教学部2011年6月

Dim i%, j%

Private Sub Form1_Click(…) Handles Me.Click Label1.Text = \ For i = 3 To 1 Step -1

Label1.Text &= Space(5 - i) For j = 1 To 2 * i - 1 Label1.Text &= \

Next

Label1.Text &= vbCrLf Next End Sub

（1） （2） （3）

2,读程序，写出结果（9分，每一个变量输出一次1分） Public Sub p1(ByRef x%, ByRef y%) Dim c%

x = 2 * x : y = y + 2 : c = x + y End Sub

Public Sub p2(ByRef x%, ByVal y%) Dim c%

x = 2 * x : y = y + 2 : c = x + y End Sub

Public Sub p3(ByVal x%, ByVal y%) Dim c%

x = 2 * x : y = y + 2 : c = x + y End Sub

Private Sub Button1_Click(…) Handles Button1.Click Dim a%, b%, c% a = 2 : b = 4 : c = 6 Call p1(a, b)

MsgBox(\ Call p2(a, b)

MsgBox(\ Call p3(a, b)

MsgBox(\

End Sub

（4） （5） （6）

3.读程序，写结果，如下程序中TEXTBOX1.TEXT的值为什么。(3分) Private Sub Button1_Click(…) Handles Button1.Click Dim s$, c$, i%, ls% s = \ ls = Len(s) For i = 1 To ls

c = Mid(s, i, 1) Select Case c

Case \

TextBox1.Text = c & TextBox2.Text

A卷 第 8 页 共 10 页