做完以下题目得再加50！（关于vb)要快

二、	请你完成下列程序。
 
目标：窗体一打开，背景颜色变成了绿色。VbGreen是VB程序预定义的颜色常量
Private Sub         _        ( )      Form1.           = vbGreen
End      

目标：单击cmd1命令按钮时，文本框txt1中的数字自动加1，即实现投票功能。
Private                 
Dim a As Integer
                  
                      
                      
End Sub
目标：在文本框text1中填入密码，如果密码（000）正确，打开游戏窗体Form2，隐藏登陆窗体Form1，如果密码错误则清除文本框text1中的内容，并重新输入密码。
子过程代码：
Private Sub cmdok_     ( )    
 If  Text1.Text = "000" Then 
           .show 
Form1.       
 Else
Text1.Text=""                           Text1.                      End If                         
End Su
 
三、填空题
1、Dim   a  as   integer语句的作用是：定义了一个变量，名称是     ，且决定了它能存储的数据的类型是          。
2、随机种子函数:              
3、产生100以内任意正整数的表达式：                    
4、语句a = Val(Texta.Text)的作用是：                         
5、图标     对应值是：                图标     对应的值是：            
6、9 mod 5=     ，2^3=      ，5\2=      。
四、请你写出下面的对话框所对应的VB程序设计语句是什么？
                                         


                                                                        
                                    
五、请你写出下面这段代码的含义。（command1代表石头，变量a已定义过）
 
Private Sub Command1_Click()
a = Int(Rnd * 3)
Select Case a
Case 0
Label2.Caption = "石头"
Label4.Caption = "您和电脑战平"
Case 1
Label2.Caption = "剪子"
Label4.Caption = "您赢了"
Case 2
Label2.Caption = "布"
Label4.Caption = "您输了"
End Select
End Sub
 
                                                                              
六、编写小游戏:幸运52
简述: 由软件产生一个100~200以内的任意正整数,让别人去猜,看看能在几次之内猜到这个数字. 如果猜大了,提示:”您猜高了,再来一次”,如果低了,提示: ”您猜低了,再来一次!”,如果猜对了,提示:”你真厉害,猜了?次猜对了!”

补充：第四题：
           停止
     一停 二看 三通过
           确定

答案：1.Private Sub Form_Load()
   Form1.BackColor = vbGreen
   End Sub
2.Private Sub Command1_Click()
Static a As Integer
a = a + 1
Text1 = a
End Sub
不用静态的话
Private Sub Command1_Click()
Dim a As Integer
for i =1 to 10000
a = a + 1
Text1 = a
next i
End Sub
3.
Private Sub cmdok_Click()
 If Text1.Text = "000" Then
    Form2.Show
    Form1.Hide
 Else
Text1.Text = ""
Text1.SetFocus
End If
End Sub 
三。1.a；长整型
2.？？
3.int（rnd*100+1）
4.把texta的文本中string类型的数字转成数值型
5.？？
6.4；8；2

其他：哎，小儿科的问题。你先自己尝试一下啊，人家是很难都给你做的，这个做出来完怎么说也得一个小时啊。如果你做的过程中出错或不懂的话可以问我。 

上一个：vb 个税计算器
下一个：跪求一个VB小游戏的代码，如俄罗斯方块，贪吃蛇等，本人初学者504977685@qq.com，