单项选择题
在窗体上画四个文本框(如图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:
Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
在窗体上画 1 个命令按钮和 1 个文本框,其名称分别为 Command1 和 Text1,然后编 写如下代码:Dim SaveAll As StringPrivate Sub Command1_Click() Text1.Text = Left(UCase(SaveAll), 4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)End Sub 程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是 _________。( 10 )在窗 体上画 1 个命令按钮 和 1 个通用对话框, 其名称分别 为 Command1 和CommonDialog1,然后编写如下事件过程:Private Sub Command1_Click()CommonDialog1. _________ = 打开文件 CommonDialog1.Filter = All Files(*.*)|*.* CommonDialog1.InitDir = C: CommonDialog1.ShowOpenEnd Sub 该程序的功能是,程序运行后,单击命令按钮,将显示 打开 文件对话框,其标题是 打开文件 ,在 文件类型 栏内显示 All Files(*.*) ,并显示C盘根目录下的所有文件, 请填空。
点击查看答案&解析
填空题
在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:Private Sub Form_Click() 5Open d: test smtext1.txt For Input As #1Do While Not _________Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop Text1.Text = whole$Close #1 Open d: test smtext2.txt For Output As #1Print #1, _________Close #1 End Sub 上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
点击查看答案&解析
相关试题
每一个窗体或者控件都有一个名字,为提高程...
下列程序是判断一个整数(>=3)是否为素...
在关系模型中,把数据看成是二维表,每一个...
在E盘当前目录文件夹下建立一个名为“Stude...
为了选择多个控件,可以按住【 】键,然后...