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)在线全文阅读。
相关推荐: