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);