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

判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*”Private Sub Command1_Click()x = Text1.TextIf x【？？】"12345678" Then（like 和=，不定）MsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd Sub--------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load()Text1.Text = ""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 ThenIf 【？？】Then (d>0)r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p【？？】（end if）Print "x1="; x1, "x2="; x2【？？】（else）q = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3.'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。

Private Sub Form_Click()Print "5个数34、124、68、73、352的最大值是："max1 = max(34, 124, 68)max1 = max(【？】) (max1, 73, 352)Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)If a > b Thenm = 【？】（a）Elsem = bEnd IfIf m 【？？】Then （> c）max = mElsemax = cEnd IfEnd Function4.'下面的程序段用于求矩阵相乘C=A×B，设A、B、C分别为m×p、p×n、m×n的矩阵。

Private Sub Form_Click()Const m = 4, p = 3, n = 2Dim a(1 To m, 1 To p) As IntegerDim 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 mFor k = 1 To pa(i, k) = iNext kNext iFor i = 1 To pFor k = 1 To nb(i, k) = iNext kNext iFor i = 1 To mFor j = 1 To n【？？】For k = 1 To psum = sum +【？？】Next kc(i, j) =【？？】Next j, iPrint "输出矩阵"For i = 1 To mFor k = 1 To nPrint c(i, k),Next kPrintNext iEnd Sub5. '题目：本程序功能为，单击窗体，Form1的输出结果为'A1=10 B1=20'A2=20 B2=10Public Sub Swap1 （x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tEnd Sub------------------------------------------------------------------------------------------------------------------ Public Sub Swap2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd Sub------------------------------------------------------------------------------------------------------------------- Private Sub Form_Click()Dim a As Integer, b As Integera = 10b = 20【？？】a, bPrintForm1.Print "A1="; a, "B1="; ba = 10b = 20【？？】a, bForm1.Print "A2="; a, "B2="; bEnd Sub====================================================================== 6. '题目：下面是一个体操评分程序，10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10 分) 。

Private Sub Command1_Click()Dim s As IntegerDim Max, Min As IntegerDim i, n, p As Integer【？？】s = 0Max = 10For i = 1 To 10n = Val(InputBox(" 请输入分数："))if n>max then max 【? ? 】=nIf n < Min Then Min = ns = s + nNext IS=S-Max【？？】-Minp = s / 8Print "最高分："; MaxPrint "最低分："; MinPrint "最后得分："; pEnd Sub7.'根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上), '及格(60分以上),不及格几个等级。

'Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 ThenLabel1.Caption = "优秀"ElseIf x 【？？】Then ( >= 75) Label1.Caption = "良好"【？？】(ElseIf x >= 60 Then) Label1.Caption = "及格"【？？】(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 Integera = 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 Thenm = xElsem = yEnd IfIf m < 【？？】Thenm = zEnd IfEnd Sub====================================================================== 10.'代码功能：输入一个数,若大于0,则显示"+"；若小于0，则显示"-"；若等于"0",则显示"零"。

Private Sub Command1_Click()x = Val(Text1.Text)Select Case x【？？】Label1.Caption = "+"Case Is < 0【？？】【？？】Label1.Caption = "零"End SelectEnd Sub====================================================================== 11. '题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。