UC知道VB高手帮帮忙啊~~
来源：百度知道 编辑：UC知道 时间：2024/05/10 07:30:47
1、 设计一个变量交换程序，界面具有如下功能：
（1） 程序运行后，变量1框中出现“A”,变量2框中出现“B”，并清除暂存变量中的内容。
（2） 按“1”按钮，变量1框中的字符“A”赋给暂存变量框，按钮标志变为“2”。
（3） 按“2”按钮，变21框中的字符“B”赋给变量1，按钮标志变为“3”。
（4） 按“3”按钮，暂存变量框中的字符“A”赋给变量2。
2、 设计一个乘除法测试程序，界面具有如下功能：
（1） 随机出乘除法题目5题，乘法为一位数乘一位数运算，除法为二位数除一位数运算，但必须除尽，且除数不为0，并显示题号。惩处浩分别用“×”、“÷”。
（2） 用户输入答案后，用“回车”表示确认。
（3） 每道题做对计20分，做错不计分，最后显示总分。
3、 设计一个询问生肖程序，界面具有如下功能：
（1） 程序启动后，清除年份、月份和生效中的内容。
（2） 使用者在生日的年份和月份输入后，按“生肖”按钮后，既显示对应的生肖。
生肖次序：鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪
图3
4、 设计一个电子闹钟程序，具有如下功能：
（1） 按格式显示时间。
（2） 可进行闹时设定。
（3） 当处于“开闹钟”状态，时钟到达闹时时，“闹钟”图像（文件名clock.bmp）会闪烁。
（4） 当处于“关闹钟”状态，则原闪烁停止，闹时功能停止。
5、 设计一个倒计时程序，具有如下功能：
（1） 按格式显示当天日期。
（2） 设定每一重要事件的内容和一年、月、日、时间表示的日期和时间（如2008年8月8日晚上8时在北京召开第29届奥林匹克运动会的开幕式）
（3） 鼠标单击“倒计时开始”按钮，倒计时开始，并显示重大事件日期还剩几天。
（4） 鼠标每单击“模拟走时”一次，表示走时一天。
（1） 程序运行后，变量1框中出现“A”,变量2框中出现“B”，并清除暂存变量中的内容。
（2） 按“1”按钮，变量1框中的字符“A”赋给暂存变量框，按钮标志变为“2”。
（3） 按“2”按钮，变21框中的字符“B”赋给变量1，按钮标志变为“3”。
（4） 按“3”按钮，暂存变量框中的字符“A”赋给变量2。
2、 设计一个乘除法测试程序，界面具有如下功能：
（1） 随机出乘除法题目5题，乘法为一位数乘一位数运算，除法为二位数除一位数运算，但必须除尽，且除数不为0，并显示题号。惩处浩分别用“×”、“÷”。
（2） 用户输入答案后，用“回车”表示确认。
（3） 每道题做对计20分，做错不计分，最后显示总分。
3、 设计一个询问生肖程序，界面具有如下功能：
（1） 程序启动后，清除年份、月份和生效中的内容。
（2） 使用者在生日的年份和月份输入后，按“生肖”按钮后，既显示对应的生肖。
生肖次序：鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪
图3
4、 设计一个电子闹钟程序，具有如下功能：
（1） 按格式显示时间。
（2） 可进行闹时设定。
（3） 当处于“开闹钟”状态，时钟到达闹时时，“闹钟”图像（文件名clock.bmp）会闪烁。
（4） 当处于“关闹钟”状态，则原闪烁停止，闹时功能停止。
5、 设计一个倒计时程序，具有如下功能：
（1） 按格式显示当天日期。
（2） 设定每一重要事件的内容和一年、月、日、时间表示的日期和时间（如2008年8月8日晚上8时在北京召开第29届奥林匹克运动会的开幕式）
（3） 鼠标单击“倒计时开始”按钮，倒计时开始，并显示重大事件日期还剩几天。
（4） 鼠标每单击“模拟走时”一次，表示走时一天。
第一题：新建一个工程，在窗体上画3个文本框，一个按钮，把按钮（COMMAND1)的Caption属性改为1，text1作为变量框1，text2作为变量框2，text3作为暂存变量框。其他label控件自己添上。。
代码如下：
Private Sub Command1_Click()
Select Case Command1.Caption
Case "1"
Text3.Text = Text1.Text
Command1.Caption = "2"
Case "2"
Text1.Text = Text2.Text
Command1.Caption = "3"
Case "3"
Text2.Text = Text3.Text
End Select
End Sub
Private Sub Form_Load()
Text1.Text = "A"
Text2.Text = "B"
Text3.Text = ""
End Sub
第二题
比较麻烦的
界面你画 6个LABEL ，1个COMMAND，5个TEXT
代码
Dim num As Integer
Private Sub Command1_Click()
Label6.Caption = "您的总分为" & num & "分"
End Sub
Private Sub Form_Load()
Randomize
num = 0
If Int(Rnd(1) + 0.5) = 1 Then
Label1.Caption = Int(10 * Rnd) & " × " & Int(