a=10:b=5 TextI. Text=Fun (a, b) Text2 Text=Fun(a, b) End Sub 程序运行后,单击命令按钮, TextI和Text2文本框显示的内容分别是【9】和 【10】 (9)在窗体上画1个命令按钮和1个文本框,其名称分别为 Command1和 Text,然后编 写下列事件过程 Dim saveall as stri Private Sub Command1 Click() TextI Text=Left(UCase(SaveAll), 4) End sub Prive TextI KeyPress(KeyAscii As Integer) Save=SaveAll-+ Chr(KeyAscii) End Sub 程序运行后,在文本框中输入 abcdefg,单击命令按钮,则文本框中显示的内容是 【11】。 (10)在窗体上画1个命令按钮和1个通用对话框,其名称分别为 Command1和 Common Dialog,然后编写下列事件过程: Private Sub Commandl Click() Common dialog1.【12】="打开文件 Common Dialogl Filter"All Files(* *) Common Dialogl. InitDir=C: \ End Sub 该程序的功能是:程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是 “打开文件”,在“文件类型”栏内显示“ All Files(**)”,并显示C盘根目录下的所有 文件,请填空 (11)在窗体上画1个文本框,名称为 TextI,然后编写下列事件过程 Private sub fe Open"d: temp\dat. txt"For Output As#I TextI text=“ End sub Private Sub TextI KeyPress(Key Ascii As Integer) If【13】=13Then If case( Text. text)=【14】Then Close 1 End Else End If End If End Sub 二级Ⅴ isual basic语言程序设计试卷第10页(共11页)二级 Visual Basic 语言程序设计试卷 第 10 页（共 11 页） 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