2003机试C卷

2003 Visual Basic 机试C卷

2003年广东省普通高校非计算机专业学生计算机应用水平考试试卷（机试）

Visual Basic 程序设计(C卷) （考试时间：90分钟） 一、（20分）编写程序，输出100个在闭区间[40，80]中的随机整数，每行输出10个整数。该程序代码已存在窗体文件C1.frm中，请按题意修改原程序并按原文件名存盘。 【程序】

Option Explicit

Private Sub Form_Click()

Dim I As Integer, R As Integer Cls

Randomize

For I = 1 #####[1]##### 100 '第1空

R = Int((80 - #####[2]##### + 1) * #####[3]##### + 40) '第2,3空 Print R;

If I #####[4]##### 10 = 0 Then Print '第4空 Next I End Sub 二、（20分）如果一个正整数从高位到低位上的数字递增，则称此数为升序数。例如，3345，567等都是升序数。请编写一个函数IsAscNumber，其功能是判断一个正整数是否为升序数。该程序代码已存在窗体文件C2.frm中，请按题意修改原程序并按原文件名存盘。 【程序】

Option Explicit

Function IsAscNumber(ByVal n As Long) #####[1]##### Boolean '第1空 Dim x As String, xlen As Integer, i As Integer x = Trim(Str(n)) xlen = Len(x)

IsAscNumber = True For i = 1 To xlen - 1

If Mid(x, i, 1) #####[2]##### Mid(x, i + 1, 1) Then '第2空 IsAscNumber = #####[3]##### '第3空 #####[4]##### For '第4空 End If Next i End Function

Private Sub Form_Click() Cls

Dim n As Long: n = 3345

If #####[5]#####(n) Then '第5空 Print n & \是升序数\

Else

第 1 页 共 4 页

2003 Visual Basic 机试C卷

Print n & \不是升序数\ End If End Sub 三、（20分）以下程序代码生成下图所示的9行9列的数字正方形图案。该程序代码已存在窗体文件C3.frm中，请按题意修改原程序并按原文件名存盘。

【程序】

Option Explicit

Private Sub Form_Click()

Rem 定义存贮图案数值的数组

Dim size As Integer, A() As Integer size = 9

#####[1]##### A(size, size) '第1空

Dim i As Integer, j As Integer

For i = #####[2]##### To size '第2空 For j = 1 To size If i < j Then

A(i, j) = #####[3]##### '第3空 ElseIf i = j Then

A(i, j) = #####[4]##### '第4空 Else

A(i, j) = #####[5]##### '第5空 End If Next j Next i Cls

For i = 1 To size For j = 1 To size Print A(i, j); Next j Print Next i End Sub 四、（20分）请考生在VB 6.0中打开C4.frm窗体文件，先设计界面，然后修改

第 2 页 共 4 页

2003 Visual Basic 机试C卷

程序代码。

（1） 设计界面。按下图所示，在“文本格式化”窗体上放置所需控件。

并按下表设置各控件的属性： 控件类型 对象名称 From A4 Text TxtContent 对象属性 属性值 Caption 文本格式化 Text 广州 珠海 Multiline True ScrollBars 3-Both Caption 字体颜色 Caption 红色 Caption 蓝色 Caption 黄色 Caption 大小 Text 10 Style O-Droopdown Combo Caption 退出 Frame OptionButtion OptionButtion OptionButtion Label ComboBox frmColor obfontColor(0) obfontColor(1) obfontColor(2) Label2 cmbFontSize CommandButton CmdExit 其中： ●“红色”“蓝色”和“黄色”单选按钮是控件数组，且放置在框架“字体颜色”内。

（2）按以下要求修改窗体中的程序代码。 ●单击“红色”、“蓝色”和“黄色”单选按钮，使文本框txtContent内的文字具有相应的字体颜色；

●选中下拉组合框cmbFontSize中的某个值，使文本框txtConent内的文字且有相应的字体大小；

●单击“退出”按钮，关闭窗体。 【程序】

Option Explicit

Private Sub cmbFontSize_Change() cmbFontSize_Click End Sub

Private Sub cmbFontSize_Click()

txtContent.Font.Size = Int(cmbFontSize.Text)

第 3 页 共 4 页

2003 Visual Basic 机试C卷

End Sub

Private Sub cmdExit_Click()

#####[1]##### Me '第1空 End Sub

Private Sub Form_Load()

txtContent.Font.Size = 24 Dim i

For i = 1 To 36 '置“字体大小”组合框中的值含有 2、4、6、8、...、72 cmbFontSize.#####[2]##### i * 2 '第2空 Next i End Sub

Private Sub obFontColor_Click(Index As Integer) Select Case #####[3]##### '第3空 Case 0

txtContent.ForeColor = vbRed Case 1

txtContent.ForeColor = vbBlue Case 2

txtContent.ForeColor = vbYellow End Select End Sub

五、编写程序，读出顺序文件“C5.txt”，将其所有非空文本行按原序写入另一个顺序文件“C5jg.txt”中，该程序代码已存在窗体文件C5.frm中，请按题意修改原程序并按原文件名存盘，并且运行该程序，单击“排除空行”按扭（其name属性是cmdChange）以生成顺序文件“C5jg.txt”（注意，生成的文件C5jg.txt应当与窗体文件C5.frm在同一个文件夹中）。 【程序代码】 Option Explicit

Private Sub cmdChange_Click() Dim s As String

Open \ As #1 '第1空 Open \ As #2 '第2空 Do While #####[3]##### EOF(1) '第3空 Line Input #1, s

If s #####[4]##### \ '第4空 Loop

#####[5]##### #1, #2 '第5空 MsgBox \End Sub

第 4 页 共 4 页