第二套 试题三 修改 VB 程序:在高速公路上,一辆汽车匀速前进,此时汽车仪表器上显示 95959 公里数,请问以每小时多少公里匀速行驶,经过多少小时后仍是新的对称数()?并在图片框中显示所有一天一夜中所有的对称数。 打开 “试题三“文件夹中的工程文件“ test3.vbp ”,完成下列操作: ( 2 分)添加一个图片框 picture1 ,将字体的字号为,加粗 ( 17 分)当窗体激活时,弹出一个对话框,如图 3-2 所示,当输入 110 时,在图片框中显示结果,如图 3-1 所示,完成( 1 ),( 2 ),( 3 ),( 4 ),( 5 )( 6 )填空。 Private Sub Form_Activate() Dim n% n = '(1) For a = 5 To '(2) For b = 0 To 9 For c = 5 To 9 p = 90009 + a * 1000 + b * 100 + c * 10 - '(3) If p > 0 And And p \ n = p / n And p \ n <= Then '(4)(5) Picture1.Print "当速度为"; n; "经过"; p \ n; "小时,新的对称数为:"; '(6) End If Next c Next b Next a End Sub