Next i Max=arr(1) Min=arr（1） For i=1 To 100 If【7】Then Max=arr(i) End If If【8】Then Min=arr(i) End If Next i
Print\；Max，\；Min End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中(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=\CommonDialog1.InitDir=\：＼\CommonDialog1.ShowOpen End Sub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下 的所有文件，请填空。
(11)在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load()
Open\：＼temp＼dat.txt\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”，则结束程序。请填空。 的最大值Max和最小值Min，请填空。 来
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2006年4月全国计算机等级考试二级VB笔试试题(3)在线全文阅读。
相关推荐：