09vb第一套题目答案.docVIP

一、(15分)打开“D:\Source”文件夹中的vb0911工程文件。在vb0911窗体文件中已经给出了全部控件，如下图vb0911所示。程序不完整，要求去掉程序代码中的注释符，把？改为正确的内容使得实现下述功能。 注意：不能修改或删除程序代码的其它部分和控件属性。最后把修改后的文件按原文件名存盘。 功能要求：程序运行后，单击“上传文件”按钮，则隔1秒钟进度条PB1数值增加5，当达到最大值时，弹出信息对话框提示文件已经上传完毕。单击“停止上传”按钮，则进度条数值停止变化，并且 “上传文件”按钮改为“继续上传”。 图vb0911 Private Sub Command1_Click() ? 单击“上传文件”按钮开始上传 3分 Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False ? “上传文件”按钮改为“继续上传” 3分 Command1.Caption = 继续上传 End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() ? If PB1.Value PB1.Max - 5 Then ? 进度条PB1数值增加5 3分 PB1.Value = PB1.Value + 5 Else Timer1.Enabled = False ? 弹出信息对话框提示“文件已经上传完毕！” 3分 MsgBox 文件已经上传完毕！ End If End Sub 二、(20分)打开“D:\Source”文件夹中的vb0912工程文件。在vb0912窗体文件中已经给出了全部控件，如下图vb0912所示。程序不完整，要求去掉程序代码中的注释符，把？改为正确的内容使得实现下述功能。 注意：不能修改或删除程序代码的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 功能要求：在Text1文本框中输入一个十进制数值，单击“转换成二进制”按钮，把输入的十进制数转换成二进制数，并且显示在Text2文本框中。单击“二进制反码”按钮，把Text2文本框中二进制数转换成其反码。反码计算方法：把二进制数中的“1”转换成“0”，“0”转换成“1”。 图vb0912 把十进制数转换成二进制数，并且赋值到Text2中 Private Sub Command1_Click() Dim m As Integer Dim r As Integer Dim str As String str = m = Val(Text1.Text) Do While m 0 r = m Mod 2 ‘求出其余数 4分 m = m \ 2 str = r str ‘求出二进制数 4分 Loop Text2.Text = str End Sub 把转换的二进制数转换成其反码，并且赋值到Text3中 Private Sub Command2_Click() Dim s1 As String, c As String * 1 Dim i As Integer Dim s2 As String s1 = Text2.Text s2 = For i = 1 To Len(s1) ‘用for循环 4分 c = Mid(s1, i, 1) ‘ 提取出每一个字符 4分 If c = 1 Then ‘ 判断字符是否为1或0 4分 s2 = s2 0 ElseIf c = 0 Then s2 = s2 1 End If Next i Text3.Text = s2 End Sub 三、(20分)打开“D:\Source”文件夹中的vb0913工程文件。在vb0913窗体文件中已经给出了全部控件，如下图vb0913所示。程序不完整，要求去掉程序代码中的注释符，把？改为正确的内容使得实现下述功能。 注意：不能修改或删除程序代码的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 功能要求：利用文件系统控件、图象框和单选按钮制作一个简单的图片浏览器。当用户在文件列表框中选择图片文件时，在图象框中显示图片，用单选按钮可调整图片的显示比例。 图vb0913 Option Explicit Dim sngWidth As Single, sngHeight As Single Pri