VB6.0程序设计实践教程 习题及答案(5)

End If End Sub

Private Sub Command1_Click() End End Sub

2．下面是一个添加和删除程序，程序运行界面如图8.27所示，单击“添加”按钮（Command1）将文本框（Text1）中的内容加到列表框（List1）中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。单击“删除”按钮（Command2）则将所有选中表项删除。如果没有选择要删除的表项，则给出提示“请选择删除的项目”。

图8.27 添加和删除程序

Private Sub Form_Load() Form1.Caption = \添加与删除\ Text1.Text = \ List1.AddItem \ List1.AddItem \ List1.AddItem \ List1.AddItem \End Sub

Private Sub Command2_Click() If ⑴ Then MsgBox (\请选择删除的项目\ Else

⑵ End If End Sub

Private Sub Command1_Click() If ⑶ Then

MsgBox (\没有内容，不予添加\ Else

⑷ Text1.Text = \ End If End Sub

3．窗体上有两个命令按钮：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 = ⑴ : Print \ Print Next i

Command1.Enabled = False : ⑵ End Sub

Private Sub Command2 Click() End End Sub

Private Sub Form Load() Command1.Enabled = True ⑶ End Sub

4．下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入边统计，以输入回车作为表达式输入结束，然后显示结果。

Dim Count1%

Private Sub Text1_Keypress（Keyascii As Intcger） If ⑴ =\（\ Count1 =Count1+1 Elself ⑵ Then ⑶ End If

If Keyascii=13 Then If ⑷ Then

Print \左右括号配对\ Elseif ⑸ Then

Print \左括号多于右括号\个\ Else

Print \右括号多于左括号\个\ End If End If 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

⑴ End Sub

Private Sub Command2_Click()

Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = ⑵ m = ⑶ s = x Mod 3600 Mod 60

Print \运行了\小时\分\

秒\

End Sub

Private Sub Timer1_Timer() ⑷ Label1.Caption = x End Sub

6．下列程序段将十进制数转会为十六进制数。单击窗体弹出InputBox对话框，让用户输入一个十进制数；单击“确定”按钮后，在Label1上显示出十六进制数的结果。如果输入的不是十进制数，在Label1上显示出“你输入的不是十进制数，退回窗体状态，让用户继续输入。

Private Sub Form_Click()

Dim shex As String, ndec As Integer, ys As Integer, ai As String ndec = Val(InputBox(\请输入一个十进制数\while ⑴ ys= ⑵ Select Case ys Case 10 ai = \Case 11 ai = \Case 12 ai = \Case 13 ai = \Case 14 ai = \Case 15 ai = \Case 0 To 9

⑶ Case Else

label1 = \你输入的不是十进制数\ ⑷ End Select

shex= ⑸ ndec = ndec \\ 16 Wend

label1= ⑹ End Sub

7．本程序用于处理文本框Text1.Text中的内容，假设文本框中有偶数个字符。要求：将

文本框中的内容从头尾至中间依次各取字符，组成一个新的字符串Str2，并在窗体上输出。 例如：

Text1.Text = \，则 Str2 = \Private Sub Form_Click()

Dim Str1 As String, Str2 As String Str1 = Text1.Text Str2 = \

m = 0

Do ⑴

Str2 = Str2 + ⑵ Str2 = Str2 + ⑶ m = m + 1 Loop

Form1.Print Str2 End Sub

六、程序设计题

1．窗体上设计两个文本框和两个标签框，标签上显示“摄氏温度”和“华氏温度”，文本框一个用于输入摄氏温度（文本框只接收数字字符和小数点“.”字符），另一个用于输出对应的华氏温度。摄氏温度c与华氏温度f的转换公式为c=(5/9)*(f-32)。

提示：本题可以用文本框的KeyPress事件来判断输入的字符是否为数字字符或小数点“.”。 2．编写一个能对列表框进行项目添加、修改和删除操作的应用程序，如图8.28所示。“添加”按钮的功能是将文本框中的内容添加到列表框中，“删除”按钮可删除列表框中选定的项目，“修改”按钮，可把要修改的项目显示在文本框中，当在文本框修改好后再单击“修改确定”按钮则更新列表框中的内容。当按下“修改”按钮后，“修改确定”按钮才可选取，否则不可操作。

图 8.28 列表框应用程序

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

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

4．在窗体上有两个命令按钮和一个文本框，标题属性分别为“开始”、“结束”和Text1。文本框Text1中的字符数不超过200个。程序刚开始运行时，“结束”按钮成灰色，单击“开始”按钮后，将文本框中的字符按其ASCII码的值由小到大自左至右重新组合，并在窗体上输出重组后的字符串，同时使“结束”按钮响应而“开始”按钮不能响应。 5．通讯录程序设计，程序启动后界面如图8.29所示：

（1）当用户在文本框内输入完一个同学的记录后，单击“添加“按钮，则记录字段加到

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB6.0程序设计实践教程 习题及答案(5)在线全文阅读。