填空题

在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 　　Private Sub Command1_Click() 　　　　CommonDialog1．Filter=【 】 　　　　CommonDialog1．ShowOpen 　　　　PCSTextBox．Text=【 】 　　End Sub

【参考答案】

"Text Files(*．txt)|*．txt"
<上一题 目录 下一题>
热门 试题

填空题
有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click( )x=Val(Text1．Text)If【 】 ThenPrint xElseText1．Text= 【 】 End IfEnd Sub
填空题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim arr(1 To 100) As Integer For i = 1 To 100arr(i) = Int(Rnd * 1000) Next i Max = arr(1) Min = arr(1)For i = 1 To 100If _________ ThenMax = arr(i) End If If _________ ThenMin = arr(i) End If Next iPrint Max= ; Max, Min= ; MinEnd Sub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，加入数组arr中，然后 查找并输出这100个数中的最大值Max和最小值Min，请填空。
相关试题