VB题库-上机练习题[1]

来源：用户分享时间：2025/5/21 8:32:59 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

m = b End If

'**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案：

1). max(max1, 73, 352)

2). ByVal a As Integer, ByVal b As Integer, ByVal c As Integer 或 a As Integer, b As Integer, c As Integer 或 a %,b%,c% 或 ByVal a %，ByVal b%，ByVal c% 3). m > c 或 c < m

〖第66题〗『程序填空』(1分)(题号:528) '------------------------------------------------------- '【程序填空】

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

'题目：窗体上建立了一个文本框Text1(\输入口令\和一个命令按钮Command1(\检查\。

' 判断密码是否正确，并显示相应提示

' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*”

'请在【】处填入正确的内容

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

Private Sub Command1_Click() x = Text1.Text

'**********SPACE********** If x 【?】 \ MsgBox (\欢迎你用机!\ Else

MsgBox (\对不起，口令错\ End If Text1.Text = \ Text1.SetFocus End Sub Private Sub Form_Load()

Text1.Text = \

'**********SPACE********** Text1.【?】 = 8

'**********SPACE********** Text1.【?】 = \

End Sub

答案：1).= 2). MaxLength 3). PasswordChar 〖第67题〗『程序填空』(1分)(题号:530) '------------------------------------------------------- '【程序填空】

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

'题目：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k<=100) ' 求前 100 项之和 '请在【】处填入正确的内容

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

Private Sub Command1_Click() Dim s As Double Dim k As Integer

'**********SPACE********** s = 【?】

'**********SPACE********** For k = 1 To 【?】

'**********SPACE********** s = 【?】 + 1 / (1 + k * 4) Next k Print s End Sub

答案： 1). 0 2). 100 3). s + 1 〖第68题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】

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

' 题目：代码功能：输入一个数,若大于0,则显示\；若小于0， ' 则显示 \；若等于\则显示\零\。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x

'**********SPACE********** 【?】

Label1.Caption = \ Case Is < 0

'**********SPACE********** 【?】

Label1.Caption = \零\ End Select End Sub

答案： 1). Case Is > 0 2). Label1.Caption = \ 3). Case 0

〖第69题〗『程序填空』(1分)(题号:500)

'------------------------------------------------------- '【程序填空】

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

'题目：本程序执行功能为，输入系列字符串，按递减次序排列。 '（1）在文本框输入字符串，按回车键后存放到数组a（）中； '（2）单击\排序\按钮（Command1）时，进行递减次序排列，并在'题目：求X的N次方，x和n均用输入对话框输入 '请在【】处填入正确的内容

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

Private Sub Form_Load()

图形框控件显示。

'请在【】处填入正确的内容

'------------------------------------------------------- Dim a() As String, n As Integer Private Sub Command1_Click() n = n - 1 For i = 0 To n - 1 imin = i

'**********SPACE********** For j = 【?】 To n

'**********SPACE********** If a(imin) 【?】 Then imin = j Next j t = a(i)

'**********SPACE********** 【?】 a(imin) = t Next i For i = 0 To n

Me.Picture1.Print a(i) Next i End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

'**********SPACE********** ReDim 【?】

'**********SPACE********** a(n) = 【?】 Text1.Text = \ n = n + 1 End If End Sub 答案：

1). i+1 或 1+i 2).

〖第70题〗『程序填空』(1分)(题号:538) '------------------------------------------------------- '【程序填空】

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

Dim x As Single, n As Integer, y As Double x = InputBox(\求X的n次方\ n = InputBox(\求X的n次方\ '**********SPACE********** y = Power(【?】) Show

Print x; \的\次方=\End Sub

Function Power(x As Single, n As Integer) As Double If n > 1 Then

'**********SPACE********** Power = Power(x,【?】) * x Else

'**********SPACE********** Power = 【?】 End If End Function

答案： 1). x, n 2). n - 1 3). x 〖第71题〗『程序填空』(1分)(题号:39) '------------------------------------------------------- '【程序填空】

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

'题目：以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列 ' 互换

'------------------------------------------------------- Private Sub Form_Click() Const n = 3 Const m = 4

Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m

a(I, j) = Int(Rnd * 90) + 10 Next j

'**********SPACE********** 【?】 For I = 1 To n For j = 1 To m

'**********SPACE********** 【?】 Next j Next I

Print \矩阵转置前\For I = 1 To n For j = 1 To m Print a(I, j); Next j

'**********SPACE********** 【?】 Next I

Print \矩阵转置后\For I = 1 To n For j = 1 To m Print b(j, I); Next j Print Next I End Sub

答案： 1). Next i 或 Next 2). b(j, i) = a(i, j) 3). Print 〖第72题〗『程序填空』(1分)(题号:509) '------------------------------------------------------- '【程序填空】

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

'题目：利用一个标签和三个水平滚动条，设计一个RGB调色板，' 运行界面如图所示。 '请在【】处填入正确的内容

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

Dim r As Integer, g As Integer, b As Integer Private Sub Form_Load() hsRed.Max = 255 hsRed.Min = 0

'**********SPACE********** hsGreen.Max = 【?】 hsGreen.Min = 0 hsBlue.Max = 255 hsBlue.Min = 0 hsRed.SmallChange = 1 hsGreen.SmallChange = 1 hsBlue.SmallChange = 1 hsRed.LargeChange = 5 hsGreen.LargeChange = 5 hsBlue.LargeChange = 5 r = 0 b = 0 g = 0

hsRed.Value = 0 hsGreen.Value = 0

hsBlue.Value = 0