VB高手帮忙看个简单的VB题

来源：百度知道 编辑：UC知道 时间：2024/09/13 01:21:43
新建一个标准exe工程，工程中有两个窗体，Frm1 和 Frm2
在Frm2上添加一个Label1，使得当单击frm1时，产生一个随机数并将随机数值赋给变量a,同时窗体Frm2显现，窗体上的Label1显示出a的值。要求每次单击Frm1时，Frm2上的标签都会更新显示结果。
请给出源代码，如能给出详细注释，再追加30分，谢谢。

新建工程，新建窗体Frm1,Frm2，记得将两个窗体的Name属性改成Frm1，Frm2（初始值是Form1，Form2），然后在Frm2上画一个Label1

在Frm1上写如下代码，Frm2不需要任何代码

Public a As Integer '定义一个全局变量a

Private Sub Form_Load()
Frm2.Show 'Frm1载入时同时载入Frm2
End Sub

Private Sub Form_Click()
Randomize '初始化随机种子
a = Int(Rnd * 100) '取（0-100）随机数赋值a
Frm2.Label1.Caption = CStr(a) 'Frm2上的Label1显示a
End Sub

你不是问过的啊！！！！！！有两题的
第一题窗体1代码如下:
Private Sub cmd1_Click()
frm2.Show '窗体2显示
frm2.WindowsMediaPlayer1.url = Form1.Text1.Text '窗体2中的播放器播放地址取 窗体一中TEXT1的值
frm2.WindowsMediaPlayer1.Controls.play '播放当前选择的文件
End Sub

窗体2
Private Sub WindowsMediaPlayer1_Click(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
Call frm1.cmd1_Click
End Sub

第二题
Private Sub Form_click() '单击窗体1
Randomize '产生随机种子 确保不重复
a = Rnd * 100 &#