《程序填空(Option_Explicit)》由会员分享，可在线阅读，更多相关《程序填空(Option_Explicit)（22页珍藏版）》请在金锄头文库上搜索。
1、1.Option Explicit题目：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*”Private Sub Command1_Click() x = Text1.Text If x 【？ ？】12345678 Then （like 和 =，不定） MsgBox (欢迎你用机!) Else MsgBox (对不起，口令错) End If Text1.Text = Text1.SetFocusEnd Sub-Private Sub Form_Load()Text1.Te
2、xt = Text1.【 ？ ？】=8 (maxlength) Text1.【 ？ ？】=* (passwordchar)End Sub2.题目：以下程序的功能如(图1)。Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox(请输入a的值)b = InputBox(请输入b的值)c = InputBox(请输入c的值)d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then If 【 ？ ？ 】 Then (d0) r = Sqr(d) / (2 * a
3、) x1 = p + r x2 = p - r Else x1 = p x2 = p 【？ ？】 （end if） Print x1=; x1, x2=; x2【 ？ ？ 】 （else） q = Sqr(-d) / (2 * a) Print x1=; p; +; q; i, x2=; p; -; q; iEnd IfEnd Sub3.下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是：max1 = max(34, 124, 68)max1 = max(【？】) (
4、max1, 73, 352)Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)If a b Then m = 【？】 （a） Else m = bEnd IfIf m 【？ ？】Then （ c） max = mElse max = cEnd IfEnd Function4.下面的程序段用于求矩阵相乘C=AB，设A、B、C分别为mp、pn、mn的矩阵。Private Sub Form_Click()Const m = 4, p = 3, n = 2Dim a(1 To m, 1 To p) As IntegerD
5、im b(1 To p, 1 To n) As IntegerDim c(1 To m, 1 To n) As IntegerDim i As Integer, j As Integer, k As Integer, sum As IntegerFor i = 1 To m For k = 1 To p a(i, k) = i Next kNext iFor i = 1 To p For k = 1 To n b(i, k) = i Next kNext iFor i = 1 To m For j = 1 To n 【？ ？】 For k = 1 To p sum = sum +【 ？ ？ 】
6、 Next k c(i, j) =【 ？ ？ 】Next j, iPrint 输出矩阵For i = 1 To m For k = 1 To n Print c(i, k), Next k PrintNext iEnd Sub5. 题目：本程序功能为，单击窗体，Form1的输出结果为A1=10 B1=20 A2=20 B2=10Public Sub Swap1 （ x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd Sub-Public Sub Swap2(x As Integer, y As Inte
7、ger) Dim t As Integer t = x x = y y = tEnd Sub-Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 【 ？ ？ 】 a, b Print Form1.Print A1=; a, B1=; b a = 10 b = 20 【 ？ ？ 】 a, b Form1.Print A2=; a, B2=; bEnd Sub=6. 题目：体操评分程序，10位评委，除去一个最高分和一个最低分，计算平均分 (设满分为 10 分) 。Private Sub Command1_Cli
8、ck() Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer【 ？ ？ 】 s = 0 Max = 10 For i = 1 To 10 n = Val(InputBox( 请输入分数： )if nmax then max 【 ? ? 】=n If n = 90 Then Label1.Caption = 优秀ElseIf x 【 ？ ？ 】 Then ( = 75) Label1.Caption = 良好【 ？ ？ 】 (ElseIf x = 60 Then) Label1.Caption = 及格 【 ？ ？ 】
9、(Else) Label1.Caption = 不及格End IfEnd Sub=9. 题目：窗体中有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) Text7.Text = 【 ？ ？ 】End SubSub max(x, y, z【 ？ ？ 】) If x y Then m = x Else m = y End If If m 【 ？ ？ 】 Then m = z End IfEnd Sub=10.代码功能：输入一个数,若大于0,则显示+；若小于0，则显示 -；若等于0,则显示零。Private Sub Command1_Click()x = Val(Text1.Text)Select Case x
