填空题

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

【参考答案】

【13】"文本文件(*.txt)|*．txt|Word文档|*．doc"
【14】1
【15】CommonD......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
<上一题 目录 下一题>
热门 试题

填空题
下面运行程序后，单击命令按钮，输出的结果是 【11】 。 Private Sub Command1_Click( ) Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(B) Print s1= ；s1； s2= ；s2 End Sub Function YAS(a( )As Integer) Dim t#，i% t=1 For i=LBound(A) To UBound(A) t=t * a(i) Next i YAS=t End Function
填空题
已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim 【8】 For i=65 To 90 pp(i) =0 Next x$=InputBox( Enter a string ，x$) x$=UCase$(x$) For i=1 To 【9】 n=Asc(Mid$(x$，i，1)) If n ＞=65 And n ＜=90 Then 【10】 End If Next i For i=65 To 90 If pp(i) ＞0 Then Print Chr$(i)；pp(i) End If Next
相关试题