发布时间:2019-07-29 18:08:41
拜托了拜托了,以下是Form2代码
Private Sub Form_Load()
Print "今の時間は"; Format(Now, "yyyy-mm-dd") '输出目前的时间
Nold = CInt(10 * (Rnd() * 4)) + 90 '生成计算年龄随机数
Print "经过测试您能活到"; Nold; "岁"
If MsgBox("您相信我的计算吗小主人︿( ̄︶ ̄)︿", vbYesNo) = vbYes Then '是否相信
Print "对没错,我可是经过几百万次的计算,什么Tarot,天像,周易,奇门遁甲等等等,我全部用上了哦,最后才得到的完美的答案吼,嘿嘿嘿"
Else
Print "哇,您觉得我是随便说说的吗?!?怎么会啊小七主人w(?Д?)w"
End If
End Sub
Form_Load是在form加载时执行的,所以它上面的界面程序不会执行的
(它在form显示前执行,但不会在界面上显示的)
所以你改Private Sub Form_Load为
Private Sub Form_Activate()
sub mand1_click()text1.text = resultform2.text1.text = resultend sub
因为vb6.0 里,print默认输出在第一个窗体里。请在第二个窗口程序中增加:
Form2.ShowForm2.Print