全部答案

2018-08-02 01:44:05

•   求vb程序，设有两个一维整型数组a和b，其各有10个元素，。。。 
  ivate Sub Command1_Click() 
  Dim a(9) As Long 
  Dim b(9) As Long 
  For i = 0 To 9 
      Randomize 
      a(i) = Int(100 * Rnd) '输出0-100的随机整数 
      b(i) = a(i) 
      Print b(i) 
  Next 
  End Sub  
   
   
   
  Private Sub Command1_Click() 
  Label1。
    Caption = "你好" 
  Label1。Font。Size = 30 
  Timer1。Enabled = True 
  End Sub 
   
  Private Sub Form_Load() 
  Timer1。
    Enabled = False 
  Timer1。Interval = 1000 
  End Sub 
   
  Private Sub Timer1_Timer() 
  Label1。
    Font。Size = Label1。Font。Size   2 
  Debug。Print Label1。Font。Size 
  If Int(Label1。Font。Size) = 50 Then 
  MsgBox "显示完毕" 
  Timer1。
    Enabled = False 
  End If 
  End Sub 
   
  喜居宝地千年旺 福照家门万事兴 喜迎新春。

  全部
  

  王***

  2018-08-02 01:44:05

  38 33 评论

  分享
  提交评论