VISUAL BASIC 样卷

一、建立一个登录窗口，要求输入口令，输入的口令在文本框中不可见，以"*"替代;单击"确定"按钮时，口令在消息(msgbox)中出现;单击"退出"按钮时，结束运行。（每空3分共30分）

1.属性设计

2.添加代码

Private Sub       (6)  _

       (7)    "你输入的口令为：" +   (8)  .  (9) 

End Sub

Private Sub CmdExit_Click()

     (10) 

End Sub

二、输入一个正整数，判断该正整数是否为素数。要求：建立一个窗体，在窗体上放置一个标签，放置一个文本框，放置二个命令按钮。（每空3分共30分）

1．属性设计

2．添加代码

Private Sub Command1_Click()

    x =   (14) 

    For   (15)  To   (16)   

        If x Mod   (17)  = 0 Then     (18)      

    Next i

    If i =    (19)     Then

        MsgBox Str(x) + "是素数"

      (20) 

        MsgBox Str(x) + "不是素数"

    End If

End Sub

Private Sub Command2_Click()

    End

End Sub

三、矩阵的输入输出：用Inputbox函数输入一个4*3矩阵，并在窗体的图片框的标准格式输出。并求出每一行中最大的元素。（每空3分共30分）[要求]：建立一个窗体，在窗体上放置一个图片框，放置三个命令按钮。

1．属性设计

2．添加代码

Private Sub Command1_Click()

    Dim    (21)  As Integer, i As Integer, j As Integer

    Dim max As Integer

    For i = 1 To  (22)

        For j = 1 To   (23)

            a(i, j) = InputBox("输入", "输入")

            Picture1.Print a(i, j),

        Next j

              (24)     

    Next i

    For i = 1 To 4

            (25)   

        For j =   (26)  To  (27)

            If max <  (28)  Then max =  (29)

        Next j

            Picture1.Print i & "行最大的是：";  (30)

    Next i

End Sub