若已在窗体中加入了一个通用对话框:要求在运行时,通过ShowOpen打开对话框时,只显示扩展名为DOC的文件,则对通用对话框的Filter的属性设置应该是:"(*.DOC)(.DOC)"。
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。
窗体上有一个通用对话框ComDlg1,语句ComDlg1.ShowSave表示( )。
在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程:
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的 Text属性设置为空白,然后编写如下事件过程: Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示内容是()。
在窗体上画一个名称为CD1的通用对话框,并有如下程序: Private Sub Form_Load() CD1.DefaultExt="doc" CD1.FileName="C:\filel.txt" CD1.Filter"应用程序(*.exe)|*.exe" End Sub 程序运行时,如果显示了“打开”对话框,在“文件类型”下拉列表中的默认文件类型是()。
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是
在窗体上画一个文本框和一个图片框,然后编写如下两个
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
设已经在窗体上添加了一个通用对话框控件CommonDialogl,以下正确的语句是()。
在窗体上有一个文本框,其名称为Text1,编写下列事件过程:Private()
假定有以下函数过程:在窗体上画一个命令按钮,然后编写如下过程:程序结束后单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,单击确定按钮后在窗体上输出的结果为()
窗体上有一个名称为CD1的通用对话框控件和由4个命令按钮组成的控件数组Command1,其下标从左到右分别为0、123。窗体外观如图所示。对上述程序,下列叙述中错误的是()
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click()Dim a As Integer,b As Integera=100b=200Print M(a,B) End Sub 程序运行后,单击命令按钮
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer)As Integer M=IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End
在窗体上画—个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a$="National Computer Rank Examination" n=Len(a$) s=0 For i=1 To n b$=Mid(a$,i,1) Ifb$="n" Then s=s+1 End If Next i Print S End Sub 程序
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序; Function M(x As Integer,y As Integer)M=IIf(x>y,x,y) End Function Private Sub Commandl_Click()Dim a As Integer,b As Integera=100b=200PrintM(a,B) End Sub 程序运行后,单击命令按钮,
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ (8) Sum=Sum+ (9) m=m+2 Loop While (10) Print Sum End Sub 该程序的功能是,单击命令按钮,则计算并输出以下表达式的值: 1+(1+3)+(1+3+5)+…+(1+3+5+
在窗体上画一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个名称为 C1、标题为“存盘”的命令按钮,编写适当的事件过程。程序运行时,如果单击“存盘”命令按钮,则打开保存文件对话框,并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: my documents”。请填空。 Private Sub C1_ Click() CD1. InitDir
在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的Muhiline属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open“d:estsmText1.txt"For lnput As1 Do While Not 【14】 Line lnput1,aspect$whole$=wholes+aspect$+Chr$(1
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:程序运行后,单击命令按钮,将显示一个输入对话框,如果在输入对话框中输入25,则程序的执行结果为()。