《Visual Basic程序设计基础》习题 文理学院

End End Sub

Private Sub Form_Load() Command2.Enabled = False End Sub

2．【程序说明】窗体上有两个命令按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。

Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Spc(5 - i);

For j = （1） : Print \ Print Next i

Command1.Enabled = False （2） End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() Command1.Enabled=True （3） End Sub

3．【程序说明】下列程序能在一定范围内找出所有素数，要求：文本框用来输入所要找的数的范围，且只能先在Text1（必须大于1）输入结束后才能在Text2（必须大于Text1中的数）中输入，按回车键表示输入结束。在Text2输入结束后，才能单击“Command1”（确定）命令按钮，并在窗体上输出该范围内的所有素数。

以上过程可重复。

Private Sub Form_Load()

Command1.Enabled = False: （1） End Sub

Private Sub Command1_Click()

Dim n As Integer, m As Integer, i As Integer, p As Integer n = Val(Text1.Text): m = Val(Text2.Text) For i = n To m

（2）

Do While p< = Int(Sqr(i))

If i Mod p = 0 Then Exit Do Else p = p + 1 Loop

If p > Int(Sqr(i)) Then （3） Next i

Text1.Text = \

Text1.Enabled = True: Text2.Enabled = False Command1.Enabled = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If （4） Then Text1.Text = \ Else

Text2.Enabled = True: Text1.Enabled = False End If End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If （5） Then

If Val(Text2.Text) <= Val(Text1.Text) Then Text2.Text = \ Else

Text2.Enabled = False Command1.Enabled = True End If End If End Sub

4．【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。 Private Sub cmdDel_Click() i = 0

Do While i< （1）

If List1.Selected(i) = True Then （2） Else

（3） End If

Loop End Sub

5．【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。 各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。

Dim x As Long

Private Sub Form_Load()

Timer1.Interval = 1000: Timer1.Enabled = False End Sub

Private Sub Command1_Click() Cls x = 0

（1） End Sub

Private Sub Command2_Click()

Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = （2） m = （3） s = x Mod 3600 Mod 60

Print \运行了\小时\分\秒\End Sub

Private Sub Timer1_Timer() （4） Label1.Caption = x End Sub

6．【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：

（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。

（2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval = 100 End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) （1） = Label1.Left + 150

If Label1.Left >= Form1.Width Then （2） End Sub 六、程序设计题

1．在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。

运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用Visual Basic！”，同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。

2．编程，查看所按键的ASCII码：在文本框控件内输入某个字符，用标签控件显示输入字符的ASCII码。

3．编程，建立1个文本框用于输入口令（显示为“*”，按回车键作为结束）、1个命令按钮（标题为“进入”）。运行时，“进入”按钮不能响应，直到输入的口令正确时才响应。输入口令时，有相应的提示信息。当单击“进入”按钮时，在窗体上显示“欢迎进入！”。

4．编程，窗体标题为“猜数游戏”。

基本要求：单击“出题”按钮则生成一个1～100间的随机整数；然后在文本框中输入若干数（以回车键结束），大于或小于随机数则给出提示信息，猜1个数超过10次不可再猜该数。

其他要求：根据猜数的次数给出评语；出题、猜数可重复进行；随机数产生后锁定“出题”按钮、激活文本框控件，猜数结束后锁定文本框控件、激活“出题”按钮。

5．编制一个演示文本操作的程序，界面如图10-3所示，要求各命令按钮为一个控件数组。 （1）程序刚运行时3个命令按钮均不能响应。

（2）当选择文本之后Label1显示响应的提示，“剪切”和“复制”按钮能够响应。 （3）单击“剪切”或“复制”按钮后，所有按钮中只有“粘贴”按钮能响应。 （4）单击“粘贴”按钮后，3个命令按钮都不能响应。

图10-3 程序设计题5的窗体界面

6．编程，运行时界面如图10-4所示，选中不同单选按钮时在文本框中显示不同的内容。