7.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.text="VB程序设计" End Sub
Private Sub Text1_Change() Picture1.Print"VB Programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是____，而在图片框中显示的内容是____。
输入答案，中间不含空格:
8.上一题
输入答案，中间不含空格:
9.阅读下面的程序： Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=True Counter=5 Do Do While Counter < 20 Counter =Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check =False Print Counter End Sub 程序运行后，单击窗体，输出结果为____。
输入答案，中间不含空格:
10.设有如下程序： Private Sub Form_Click() Dim a As Integer,s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n>0 Print s End Sub 以上程序的功能是____。程序运行后，单击窗体，输出结果为____。
输入答案，中间不含空格:
11.上一题
输入答案，中间不含空格:
12.设有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min=____ For i=2 To 8 If arr1(i) Next i Print "最小值是：";Min End Sub 以上程序的功能是：用 Array 函数建立一个含有8个元素的数组， 然后查找并输出该数组中各元素的最小值。请填空。
输入答案，中间不含空格:
13.上一题
输入答案，中间不含空格:
14.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click() Open"d:\test\smtext1.txt"For Input As #1 Do While Not ____ Line Input #1,aspect$ whole$=whole$+aspect$+Chr$(13)+Chr&(10) Loop Text1.Text=whole$ Chose #1 Open "d:\test\smtext2.txt"For Output As #1 Print #1,____ Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来， 然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。
收藏本文到QQ书签
搜藏本文到百度搜藏
收藏
推荐
评论(0条)