VB_填空练习答案

一.选择结构

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

'功能：用输入对话框输入x，根据如图公式计算对应的y，在窗体上输出y的值。 '------------------------------------------------------- Private Sub Command1_Click() '**********SPACE**********

Dim x As Single, 【?】 As Single '**********SPACE**********

x = Val(【?】(\输入X的值\ If x = 10 Then

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

ElseIf x > 10 Then

'**********SPACE********** y = Sqr(x) 【?】 Else

y = 2 * x ^ 3 + 6 End If Print y End Sub

(答案) Y InputBox y = 0 + Sin(x)

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

'功能：下面的事件过程判断文本框Text1中输入的数所在区间，并在文本框Text2中输出判断结果 '------------------------------------------------------- Private Sub Command1_Click() Dim int1 As Integer

'**********SPACE********** 【?】 = Val(Text1.Text) Select Case int1 Case 0

Text2.Text = \值为0\

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

Text2.Text = \值在1和10之间（包括1和10）\ '**********SPACE********** Case Is > 【?】

Text2.Text = \值大于10\ Case Else

Text2.Text = \值小于0\ End Select End Sub

(答案1) int1 1 To 10 10

二.一般

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

'功能：本程序功能为，第一次单击窗体，Form1的输出结果为 2 5 9 '------------------------------------------------------- Private Function sum(n As Integer) '**********SPACE********** 【?】 j As Integer j = j + n + 1 sum = j End Function

Private Sub Form_Click() Dim i%, s%

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

'**********SPACE********** s = 【?】 Form1.Print s; Next i End Sub

(答案) Static I sum(i)

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

'功能：窗体上建立了一个文本框Text1(\输入口令\和一个命令按钮Command1(\检查\。 ' 判断密码是否正确，并显示相应提示

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

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

(答案) = MaxLength PasswordChar

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

'功能：在窗体上画一个标签（名称为 Label1 ）和一个计时器（名称为 Timer1 ），

然后编写如下几个事件过程：要求：每一秒钟Label1更新显示一次系统时间

'------------------------------------------------------- Private Sub Form_Load()

Timer1.Enabled = False

'**********SPACE********** Timer1.Interval = 【?】 End Sub

Private Sub Form_Click()

'**********SPACE********** Timer1.Enabled = 【?】 End Sub

Private Sub Timer1_Timer()

'**********SPACE********** Label1.Caption = 【?】 End Sub

(答案) 1000 True Now 或 Time

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

'功能：写出程序运行后，单击窗体，Form1上显示的内容 ' sum 函数的功能为累加求和 ' isum = 1 ' isum = 3 ' isum = 6 ' isum = 10 ' isum = 15

'------------------------------------------------------- Private Sub Form_Click()

Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【?】 isum = sum(I)

'**********SPACE********** Form1.Print \＝\【?】 Next I End Sub

Private Function sum(n As Integer) Static j As Integer

'**********SPACE********** 【?】 j + n sum = j End Function

(答案) 5 & isum j =

三.级数

'------------------------------------------------------- '功能：以下程序段用于求∑n!

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

Private Sub Form_Click()

Dim sum As Integer, n As Integer

n = InputBox(\请输入一个正整数\ sum = 0

For i = 1 To n

'**********SPACE********** sum =【?】 Next i Print sum End Sub

Private Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1

'**********SPACE********** For i = 1 To 【?】 s = s * i Next i

'**********SPACE********** 【?】 End Function

(答案) sum + mul(i) x mul = s

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

'功能：由输入对话框输入n（n必须为大于零且小于30的自然数）， 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ ... +1/(k*(k+1)) (k<=n) '------------------------------------------------------- Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer

n = Val(InputBox(\请输入自然数n(n>0 且n<30)\ '**********SPACE********** Do While n <= 0 【?】 n >= 30

n = Val(InputBox(\请重输入\ Loop sum = 0 k = 0 Do

'**********SPACE********** k =【?】

sum = sum + 1 / (k * (k + 1)) '**********SPACE********** Loop Until 【?】

Label1.Caption = \ End Sub

(答案) Or k + 1 k >= n

四.数字关系

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

'功能：过程suixian可以判断某一个数字是否是水仙花数，利用该过程找出三位数中所有水仙花数。 ' 所谓\水仙花数\是指一个3位数，其各位数字立方和等于该数本身。 '------------------------------------------------------- Private Sub Form_Click()

Dim i As Integer For i = 100 To 999

'**********SPACE********** 【?】 Next i End Sub

Public Sub suixian(x As Integer)

Dim i%, j%, k%

'**********SPACE********** i =【?】

j = (x - i * 100) \\ 10 k = x - i * 100 - j * 10

'**********SPACE********** If 【?】 Then Print x End Sub

(答案) call suixian (i) x \\ 100 x = i ^ 3 + j ^ 3

五.数组

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

'功能：下面的程序段，用于实现在一个nXm的矩阵中，找出 值最大的元素所在的行和列，并输出其值及行号和列号。 '------------------------------------------------------- Private Sub Form_Click()

Dim mat() As Integer

Dim n as integer, m As Integer

n = Val(InputBox(\请输入矩阵的行数\m = Val(InputBox(\请输入矩阵的列数\'**********SPACE********** 【?】

For i = 1 To n For j = 1 To m

mat(i, j) = InputBox(\请输入数组元素值\ mat(i, j) = Val(mat(i, j)) Next j Next i

Print \所建立的矩阵为\For i = 1 To n For j = 1 To m Print mat(i, j); Next j

+ k ^ 3

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB_填空练习答案在线全文阅读。