VB编程急需~~最好今晚就有答案~~多谢多谢~~急需啊~~

来源：百度知道 编辑：UC知道 时间：2024/06/03 04:20:10
一、 编程题：
1、第一题
（1） 求[1,100](包括1和100)内所有偶数的和。
（2） 求[25,300](包括25和300)内奇数（或偶数）的个数。
（3） 求[0,100]内能被3和7整除的数的个数。
（4） 求[1,200]中奇数和的平均值。
（5） 求[0,20]内奇数的积。
2、第二题
（6） 求二维矩阵a(1 to 6,1 to 6)第一列和第六列所有元素的和，所有元素从[0,100](晗0和100)中随机产生。
（7） 求5x5矩阵中5的倍数的个数，所有元素从[0,100](晗0和100)中随机产生。
（8） 求二维矩阵a(4,4)所有非边界元素的和，元素从[0,100](晗0和100)中随机产生。
（9） 二维5x5矩阵中，将第一列和第五列的元素交换位置。元素从[0,100](晗0和100)中随机产生。
（10） 产生二维4x4数组并求其中所有元素之和，元素从[0,100](晗0和100)中随机产生。
3、第三题
（11） （窗体设计）

要求：
a) 运行时text1显示默认值“user”
b) 密码位数不超过8位
c) 单击“确定“时，如果密码是”ok”，弹出Msgage”恭喜你”；如果密码不是，则清除密码，而且光标回到密码输入框中（text2）中
d) 单击“取消”，程序结束。
（12）（窗体设计）

要求：
a) 密码为6位数
b) 密码的六位数字之和=16才能登录
c) 其余要求基本同上题
d) （大致是这样的，这是我问我同学的）
（13）（窗体设计）

单击“转换”将十进制数转换成十六进制数（课本上有，《复习资料》第26页也有，可以背也可以写在小纸条上，到时带进去，呵呵~~）
（13）设计“倒计时”

界面要求：
* 使用标签，文本框，命令按钮、时钟控件完成。
* 运行要求：
*

1.
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 1 To 100
If i Mod 2 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
2.
Private Sub Command1_Click()
Dim i As Integer
Dim oushu As Integer
Dim jishu As Integer
For i = 25 To 300
If i Mod 2 = 0 Then
oushu = oushu + 1
Else
jishu = jishu + 1
End If
Next i
Print "偶数的个数是：" & oushu
Print "奇数的个数是：" & jishu
End Sub
3.
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 0 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then
sum = sum + 1
End If
Next i
Print "个数为：" & sum
End Sub
4.
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Static jishu As Integer
Dim avg As Single
For i = 1 To 200
If i Mod 2 <> 0 Then
sum = sum + i
ji