填空题

在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和Word文档，然后在文本框控件中显示保存的文件名，请填空。 　　Private Sub Command1_Click( ) 　　　CommonDialog1．Filter=　【13】　 　　　CommonDialog1．Filter=　【14】　 　　　CommonDialog1．ShowSave 　　　TextBox．Text=　【15】　 　　End Sub

【参考答案】

【13】"文本文件(*.txt)|*．txt|Word文档|*．doc"
<上一题 目录 下一题>
热门 试题

填空题
如果存在如下过程：Private Function FMax(a( )As Integer)Dim First As Integer，Last As Integer，i As IntegerFirst=LBound(A) Last=UBound(A) Max=a(First)For i=First To LastIf a(i) ＞ Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click( )ReDim m(1 To 4) As Integerm(1)=20：m(2)=30：m(3)=50：m(4)=100c=FMax(m)Print cEnd Sub单击命令按钮，其输出结果为 【12】 。
填空题
下面运行程序后，单击命令按钮，输出的结果是 【11】 。Private Sub Command1_Click( )Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#For i=1 To 4a(i) =iNext iFor i=3 To 6b(i) =iNext is1=YAS(A) s2=YAS(B) Print s1= ；s1； s2= ；s2End SubFunction YAS(a( )As Integer)Dim t#，i%t=1For i=LBound(A) To UBound(A) t=t * a(i)Next iYAS=tEnd Function
相关试题