内容发布更新时间 : 2024/11/9 9:38:59星期一 下面是文章的全部内容请认真阅读。

4．执行程序时，自动发生的窗体事件是（ ACD ）

（A）Load （B）Click （C）Activate （D）Initialize （E）LostFocus

7．下列函数表达式中，返回值相等的是（ BC ） A．Abs (15.6256) B．Fix (15.625) C．Int (15.625) D．Round (15.625)

E．Sqr (15.625)

8．VB中可用于控制循环的有（ ABCDE ） A． if 语句与 Goto语句配合使用 B．While … Wend C．For … Next 语句

B． D．Do While … Loop语句 E．Do … Loop Until语句 9．能产生一个数值范围为1,2,3,4,5和6的随机整数的表达式为（ AC ） A. Int ( 6 * Rnd + 1 ) B. Int (5 * Rnd ) + 1

C .Int ( 6 * Rnd ) + 1 D. Int (5 * Rnd + 1 ) E. Int ( 6 * Rnd )

11.下列各项是滚动条(HScrollBar或VScrollBar)属性的有（ ACE ） (A) Max (B) Change (C) Value (D) Scroll (E) LargeChange 12.鼠标事件MouseDown将返回的参数有（ ABCD ）

(A) Button (B) Shift (C)当前坐标Y (D) 当前坐标X (E) Value

三、判断分析题

2．语句 Dim x,y,z As Long 能将变量x、y和z均设置为长整型。× 4．循环语句For i=n TO m Step k 正常结束后，循环变量i的值等于终值m。×

6．执行语句X = Y = 5后，变量X与Y的值均为5。×

7．在窗体上按下鼠标左键并拖动鼠标，可以多次触发Form_MouseMove事件。

√

8．Int (-4.8) + Int (4.8) 等于0。 ×

11、设变量A，B，C均为变体类型，则A=B=C 是一个合法的VB 语句，且A的返回值为True或False。√

12、在窗体的“通用”部分用Dim声明的变量，在本窗体内的所有过程或函数中都有效。

13．Visual Basic语言中的整型数据也可以用十六进制数表示。√ 16．定义在一个事件过程内部的变量，当该事件过程执行结束后，变量就会被释放。×

四、程序填空题

4．在文本框中输入字符串，用n1, n2, n3分别统计其中大写字母、小写字母、其他字符出现的个数。

Private Sub Command1_Click() c = Text1.Text

For p = 1 To c1 = Mid(c, p, 1) Select Case Case \ n1 = n1 + 1 Case \ n2 = n2 + 1 Case Else n3 = n3 + 1 End Select Next p

Label1.Caption = \大写字母：\& Str(n1) & \小写字母：\& Str(n2) & \其它字符：\End Sub

len（C）, C

7.程序是统计文本框Text1内字母e出现的次数（不区分大小写），结果显示在标签Label1中。

Private Sub Command1_Click() word = Text1.Text a = 0

For i = 1 To ⑦ c = ⑧ If c = \ a = a + 1 End If

Next i

Label1.Caption = \字母e出现的次数：\End Sub

Len (word), LCase (Mid(word, i, 1))

9、下面程序的功能是计算s?1?????，直到末项值≤10-5为止。 Private Sub Form_Click() n = 0：Sum = 0 Do

n = n + 1

Sum = Loop Print Sum End Sub

sum+1/n, until 1/n<=0.00001

12131nx?20?2x10．程序功能是计算分段函数的值，y???3x?210?x?20?0其它?

Private Sub Form_Click()

Dim x As Single, y As Single

x = Val(InputBox(\请输入x的值：\Select Case x

Case y = 2 * x Case y = 3 * x + 2 Case Else y = 0 End Select

Print \End Sub

Is > 20, 10 To 20

16．程序功能是产生10个小于等于100的随机正整数，找出其中的最小数，并记录该最小数的位置。

Private Sub Command1_Click( ) Min =

Pos = 0 For k = 1 to 10 X =

If X < Min Then Min = X : Pos = Next k

Print “The minimum =”; Min; “ Its Position : “; Pos End Sub

100, Int (Rnd *100+1), k

18．验证素数（素数是只能被1和自身整除的自然数）

Private Sub Command1_Click()

Dim n As Integer, i As Integer, f As Boolean f = True

n = Val(InputBox(\请输入一个正整数\大于1)\素数\

For i = 2 To

If n Mod i = Then f = False：Exit For End If Next i

If f = Then Print n; \是素数\不是素数\

End Sub

sqr(n), 0, True 19．显示100～200之间的所有素数。 Private Sub Command1_Click ( ) F=0

For N = 100 To 200

For K=__ __ To __ __ If N Mod K=__ __ Then F=1：Exit For

End If

Next K

If F=0 Then Print N F = __ __ Next N End Sub

step 1,2,sqr(n),0,0

23、随机产生25个0或者1构成5×5矩阵，要求在窗体上显示该矩阵和其下三角形元素。

Private Sub Form_Click() Cls：Dim a(1 To 5, 1 To 5) Print \原始矩阵：\For i = 1 To 5 For j = 1 To 5

a(i, j) = Print a(i, j); Next j Print Next i

Print \显示下三角形元素：\ For i = 1 To 5

For j = 1 To Print a(i, j); Next j Print Next i End Sub

int(rnd*2),i

25．单击窗体上的任何一点，以该点位置为圆心，用蓝色画出一个半径为300