文档介绍：得分
评阅人
一、填空题(共10个空,每空2分,共20分)
以下程序的功能是:判断一个数是不是素数,将2~1000间的素数求和。请完善程序。
Private Sub Form_Click()
Dim m%,sum%
For m=2 to 1000
If isprime(m) then
sum=sum+m
End if
Next m
Print sum
End Sub
Public Function isprime(a%) As Boolean
isprime = True
Dim i%
For i = 2 To a\2 或 int(a^(1/2) 或 a-1 等
If a mod i = 0 Then prime = False
Next i
End Function

弹出名称为“Main”的菜单的语句为 PopUpMenu MainPopu 。
在Visual Basic中,所有控件都应具有的属性是__Name________________。
Private Sub Form_Click()
Dim i%, j%
i = 5 : j = 6
Print test(i, j); i;j
Print test(i, j); i;j
End Sub
Public Function test%(m%, ByVal n)
Static sta%
n = n * 3 : m = m + n
sta = sta + m : test = sta
End Function
执行下面程序,第二行输出的结果分别是_64 41 6_。
以下程序的功能是:利用过程将20个三位随机正整数存于数组A,请完善程序。
Private Sub Form_Click()
Dim a%(1 to 20)
Input_a1 a
End Sub
Public Sub Input_a1( _b%()_ )
Dim i%
For i = LBOUND(b) To UBOUND(b)
B (i)= int(rnd()*900+100)
Next i
End Sub
得分
评阅人
二、简答题(共4题,每题5分,共20分)
根据控件对象属性值的设置方式分别描述设计属性、运行属性、常规属性、只读属性。
设计属性值只能在设计阶段通过属性窗口设置,如控件的Name属性;
运行属性值只能在代码中通过赋值语句设置,如窗体的CurrentX属性;
常规属性值既可在设计阶段通过属性窗口设置,也可在代码中通过赋值语句设置,如文本框的Text属性;
只读属性值用户不能直接在设计阶段设置,也不能在代码中通过赋值语句设置,其值只能根据对象的当前状态自动改变。
赋值语句a(i) = iif((x+y)*z < x+y * z , x*z+y*z , x+y*z) 中有三对括号,解释每对括号的作用。
(x+y)* z中的圆括号对用来改变算术运算的优先顺序。
a(i)出现在语句的左端,可判定a(i)是一个数组元素,圆括号对中内容指定数组元素的下标。
iif是系统提供的一个函数。其后跟的圆括号对表示,圆括号对中内容是该函数的实参列表。
阅读表格中程序,回答下列问题。
Private Sub Form_Click()
Dim m%,n%,z%
m=30 :n=20
z=min(m,n)
print m,n,z
End Sub
Public Function min(ByRef x%, ByVal y%)
If x >y then
x = x+y :y = x –y :x = x-y
end if
min = x
End Function
①上述程序中,哪些是形参、哪些是实参?
②上述程序中,关键字ByRef 和ByVal的作用?
③上述程序中,min = x的作用?
④执行Form_Click()事件过程,窗体上显示的内容是什么?
①上述程序中,x,y是形参、m,n是实参。
②上述程序中,关键字ByRef说明实参m和形参x之间采用传址的方式进行参数传递;关键字ByVal说明实参n和形参y之间采用传值的方式进行参数传递。
③上述程序中,min = x的作用是给函数赋返回值。
④执行Form_Click()事件过程,窗体上显示的内容是20 20 20。
简述VB中GotFocus、LostFocus、SetFocus三者的区别?
GotFocus、LostFocus均为某个对象所响应的事件,SetFocus是系统为某个对象所设置的一种方法;
GotFocus事件是一个对象获得焦点时发生,而LostFocus事件