几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(