题目
Private Sub Form_Click ()
Open " d:\test\smtext1.Txt " For Input As #1
Do While Not 【 13 】
Line Input #1, aspect$
W hole$=whole$+aspect$+Chr$ (13 ) +Chr$ (10 )
Loop
Text1.Text=whole$
【 14 】
Open " d:\test\smtext2.Txt " For Output As #1
Print #1, 【 15 】
Close #1
End Sub
运行程序 , 单击窗体 , 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。
第1题
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
第2题
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程: Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后,单击命令按钮,在文本框中显示的是______。
A.36
B.45
C.54
D.63
第3题
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程: Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
第4题
在窗体上画一个文本框(其NAME属性为TExT1),然后编写如下事件过程: PRIVATE SUB FORM_LOAD() DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是()。
A.在文本框TEXT1中输出55
B.在文本框TEXT1中输出0
C.出错
D.在文本框TEXT1中输出不定值
第5题
在窗体上画一个文体框(其Name属性为Text1),然后编写如下事件姓程; Private Sub Fom_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Stun=Stun +i Next i Text1.Text=Sum End Sub 上述程序的运行结果是______。
A.在文本框Text1中输出55
B.在文本框Tece1中输出0
C.出错
D.在文本框Text1中输出不定值
第6题
A.108
B.18
C.810
D.出错
第7题
A. 108
B.18
C.810
D.出错
第8题
A.108
B.18
C.810
D.出错
第9题
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是()。
A.108
B.18
C.810
D.出错
第10题
在窗体上画一个文本框,然后编写如下程序: Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text:Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后,单击窗体,在文本框中显示的内容是
A.1
B.3
C.6
D.10
第11题
(10)在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程: Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是,而在图片框中显示的内容是 。
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!