2006年4月全国计算机等级考试二级VB语言笔试试题及答案

发布时间:2010-01-13 共12页

(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:

Function Fun(x As Integer,ByVal y As Integer)As Integer

x=x+y

If x<0 Then

Fun=x

Else

Fun=y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=-10:b=5

Text1.Text=Fun(a,b)

Text2.Text=Fun(a,b)

End Sub

程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【9】和【10】。

(9)在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编

写如下代码:

Dim SaveAll As String

Private Sub Command1_Click()

Text1.Text=Left(UCase(SaveAll),4)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

SaveAll=SaveAll+Chr(KeyAscii)

End Sub

程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是【11】。

(10)在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程:

Private Sub Command1_Click()

CommonDialog1.【12】="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C:\"

CommonDialog1.ShowOpen

End Sub

该程序的功能是,程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是“打开文件”,在“文件类型”栏内显示“AIl Files(*.*)”,并显示C盘根目录下

的所有文件,请填空。

(11)在窗体上画1个文本框,名称为Text1,然后编写如下程序:

Private Sub Form_Load()

Open"d:\temp\dat.txt"For Output As#1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

lf【13】=13 Then

If UCase(Text1.Text)=【14】Then

Close 1

End

Else

Write#1,【15】

Text1.Text=""

End If

End If

End Sub

以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。

百分百考试网 考试宝典

立即免费试用