UC知道vb试题，谢谢大家了
来源：百度知道 编辑：UC知道 时间：2024/05/16 03:28:30
一、填空
1、在名称为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$
?? Close #1
?? Open "d:\test\smtext2.txt" For Output As #1
?? Print #1,
?? Close #1
??End Sub
??上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
2、设工程中包含一个窗体模块和一个标准模块，在标准模块中的过程用于求m行n列二维整型数组a各行元素的和，并将和存于一维整型数组b中。窗体模块中的代码实现单击窗体时生成（0，10）之间的随机整数，存于5行6列的二维整型数组x中，并以5行6列的形式显示在窗体上，调用标准模块中的过程求每行元素的和，并输出求和结果。
标准模块代码：
Sub asum( )
For i=1 to m
b(j)=0
for j=1 to n
b(i)=b(i)+a(i,j)
next j
next i
end sub
窗体模块代码：
Private sub form_click( )
Dim x(5,6) as integer,y(5) as integer
For i
1、在名称为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$
?? Close #1
?? Open "d:\test\smtext2.txt" For Output As #1
?? Print #1,
?? Close #1
??End Sub
??上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
2、设工程中包含一个窗体模块和一个标准模块，在标准模块中的过程用于求m行n列二维整型数组a各行元素的和，并将和存于一维整型数组b中。窗体模块中的代码实现单击窗体时生成（0，10）之间的随机整数，存于5行6列的二维整型数组x中，并以5行6列的形式显示在窗体上，调用标准模块中的过程求每行元素的和，并输出求和结果。
标准模块代码：
Sub asum( )
For i=1 to m
b(j)=0
for j=1 to n
b(i)=b(i)+a(i,j)
next j
next i
end sub
窗体模块代码：
Private sub form_click( )
Dim x(5,6) as integer,y(5) as integer
For i
晕，那么多题目，好像不值20呢吧……
第一个：
Private Sub Command1_Click()
Dim a%(), b%(), sTemp$, i&
ReDim a(0)
ReDim b(0)
Do
i = i + 1
sTemp = Val(InputBox("输入成绩：", i))
If sTemp = "-1" Then Exit Do
If sTemp < 60 Then
ReDim Preserve a(UBound(a) + 1)
a(UBound(a)) = sTemp
Else
&n