昨晚下面关于vb的题目的，我再加50！

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

2、单击cmd1命令按钮时，文本框txt1中的数字自动加1，即实现投票功能。
Private  Sub cmd1_Click()               
Dim a As Integer
a = Val(txt1.Text)
a = a + 1
txt1.Text = Str(a)
End Sub

就做这两个简单的吧，太多了，看着都头疼

其他：sb,自己做 你厉害，直接把这些题目拿出来让人家做，还是自己思考吧，有那时间，也没那精力，呵呵 

上一个：vb 制作简易计算器
下一个：用vb做九九乘法表 代码如下 但是运行的时候同一组数的表达不在一行 如图 请问怎么改