vb01题目答案.docVIP

1、打开“D:\Source\Vb01”文件夹中的Vb11工程文件，在窗体上建立1个图形框（名称为Picture1）、2个文本框（名称分别为Text1和Text2）、2个标签（名称分别为Label1和Label2，标题分别为“偶数个数”和“奇数之和”）以及2个命令按钮（名称分别为cmdCreate和cmdResult，标题分别为“产生”和“计算”）。单击cmdCreate时，随机产生10个1~100之间的整数并显示在Picture1中。单击cmdResult时，分别求出其中的偶数的个数与奇数之和，并分别显示在Text1和Text2中。（15分） 程序运行界面如图Vb11_tu所示，该程序是不完整的，将代码中的下划线用适当的内容替代，但不能修改其它部分。存盘时不得改变文件名和文件夹。 界面设计 4分 Option Explicit Dim iArray(1 To 10) As Integer Private Sub cmdCreate_Click() Dim i% Randomize For i = 1 To 10 iArray(i) = Int(100 * Rnd) + 1 或 Int(100 * Rnd+1) 3分 Picture1.Print ; iArray(i); Next i End Sub Private Sub cmdResult_Click() Dim i%, sum1%, sum2% sum1 = 0 sum2 = 0 For i = 1 To 10 If iArray(i) Mod 2 = 0 Then sum1 = sum1 + 1 3分 Else sum2 = sum2 + iArray(i) 3分 End If 2分 Next Text1.Text = sum1 Text2.Text = sum2 End Sub 开“D:\Source\Vb12” 文件夹中的VB12工程文件，创建如图vb12_tu所示的窗体，程序运行时单击CmdDraw命令按钮（标题为显示）后，每隔0.5秒在窗体上画一个圆，这些圆圆心相同，半径逐渐由小到大（20、40、60、80…），线条由细变粗，同时改变圆的颜色。当画了10个圆以后，清除所有圆，再从圆心重新开始画圆。（15分） 程序运行界面如图Vb12_tu所示，该程序是不完整的，将代码中的下划线用适当的内容替代，但不能修改其它部分。存盘时不得改变文件名和文件夹。 Private Sub Form_Load() Timer1.Enabled = False 2分 Scale (-300, -300)-(300, 300) 2分 End Sub Private Sub CmdDraw_Click() Timer1.Enabled = True 2分 Timer1.Interval = 500 2分 End Sub Private Sub Timer1_Timer() 2分 Static I As Integer 3分 I = I + 1 If I 10 Then Cls I = 0 2分 Else ForeColor = QBColor(I) DrawWidth = I Circle (0, 0), 20 * I End If End Sub 3、填空完善程序。运行“D:\SOURCE\VB01”下的程序“VB13Demo.exe”,界面显示如下图，点击“修改”命令按钮，将显示保存在“ParaSet.ini”文件中的“Shape”对象的属性，修改属性值后，点击“保存”命令按钮，将改变“Shape”对象的属性，并将修改后的值保存到“ParaSet.ini”文件中，这里“修改”和“保存”按钮不会同时出现。在“D:\SOURCE\VB01”文件夹中打