DOC《全套试题2》

S End Sub 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() n =

5 f =

1 s =

0 For i =

1 To n f = f【13】 s = s + f Next Print s End Sub 该事件过程的功能是计算 的值.请填空. 以下程序的功能是:把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Textl中显示出来.请填空. Private Sub Command1_Click() Dim inData As String Text1.Text= Open .\text1.txt 【14】 As #1 Do While 【15】 Input #1,inData Text1.Text=Text1.Text&

inData Loop Close #1

三、编程(30分,每题10分) 编程实现,将两个变量的值进行交换,例如a=5,b=4运行程序后a=4,b=5. 编制判断是否同时被17与37整除的Function过程.在列表框中输出100~1000之间所有能同时被17与37整除的数. 将磁盘的上的两个文本文件a.txt和b.txt的内容合并到文件c.txt中. 答案:

一、选择题 1.C 2.A 3.D 4.B 5.C 6.A 7.A 8.D 9.B 10.B 11.D

12 .C 13.A 14.B 15.C 16.B 17.A 18.B 19.C 20.C

二、填空题 1.顺序 2.选择 3.循环 4..BAS 5.200 6.x>

=0 7.x=x 8.9 9. timer 10.Rnd或Rnd(n) 11.X mod

5 12. x 13. *(1/i ) 14. For Input 15.Not EOF(1)

三、编程题

1、 Sub swap() Dim c As Integer, a As Integer, b As Integer a=inputbox( Enter an integer a ) b=inputbox( Enter an integerb ) print a,b c = a a = b b = c print a,b

2、 Public Function isNum(ByVal n As Integer) If n Mod

17 =

0 And n Mod

37 =

0 Then isNum = True Else isNum = False End If End Function Sub sum() Dim i As Integer Dim sum As Integer........