填空题

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

【参考答案】

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

填空题
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。Private Sub Command1_Click()Dim a As Integer，n As Integer，Cout As IntegerDim Sn As Long，Tn As LongCout=1Sn=0Tn=0a=InputBox( 请输入a的值： )【 】 DoTn=Tn * 10 + aSn二Sn + TnCout=Cout+1【 】 Debug．Print a，n，SnEnd Sub
填空题
在窗体上有一个命令按钮，然后编如下事件过程：Function SR( x As Double)As DoubleSelect Case Sgn(x)Case 1SR=Sqr(x)Exit FunctionCase 0SR=0Case-1SR=-1End SelectEnd FunctionPrivate Sub Command1 _ Click( )Dim Msg，SRNDim N AS DoubleN=InputBox( 请输入要计算平方根的数 )Msg=N& 的平方根 Select Case SR(N)Case 0Msg=Msg & 是0 Case-1Msg=Msg& 是一个虚数 Case ElSeMsg=Msg & 是 & SR(N)End SelectMsgBox MsgEnd Sub程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。
相关试题