vb第四次练习题

==================================================

题号：19606

'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。

'程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。

'在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。。

'要求：考生不得修改已经存在的程序，******* Begin ************ 和 ******* End ************** 之间为代码编写区域

'-------------------------------------------------

Sub SaveData()

Open App.Path & "\" & "outtxt.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

Function Fun()

'******* Begin ************

'******* End **************

End Function

Private Sub Command1_Click()

d = Fun()

Text1.Text = d

SaveData

End Sub

For i = 0 To 1000

If i Mod 7 <> 0 Then

Y = Y + 1

End If

Next i

Fun = Y

程序填空

================================================== 题号：21045

'-------------------------------------------------------

'【程序填空】

'-------------------------------------------------------

'功能：窗体中有Text1-Text7共7个文本框，单击按钮Command1在

' Text7中显示前6个文本框中的数值的最大数

'-------------------------------------------------------

Private Sub Command1_Click()

Dim a, b, c, d, e, f, m As Integer

a = Val(Text1.Text):

b = Val(Text2.Text):

c = Val(Text3.Text)

d = Val(Text4.Text):

e = Val(Text5.Text):

f = Val(Text6.Text) Call max(a, b, c, m)

Call max(m, d, e, m)

Call max(m, f, f, m)

'**********SPACE**********

Text7.Text = 【?】

End Sub

'**********SPACE**********

Sub max(x, y, z 【?】)

If x > y Then

m = x

Else

m = y

End If

'**********SPACE**********

If m < 【?】 Then

m = z

End If

End Sub

答案：

位置 1:

m 【或】 Cstr(m) 【或】 Str(m)

位置 2:

,m

位置 3:

z

程序改错

================================================== 题号：19425

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程

' fact实现

'------------------------------------------------

Option Explicit

Private Sub Form_Click()

Dim i As Integer, s As Long

'**********ERROR**********

For i = 2 To 8

s = s + fact(i)

Next i

Print s

End Sub

'**********ERROR**********

Public Function fact()

Dim t As Long

Dim i As Integer