UC知道VB作业 高手请进 ~ 非常急 明天就要交了
来源：百度知道 编辑：UC知道 时间：2024/05/15 06:50:30
程序运行时，三个文本框，分别输入年月日 ，单击窗体，在窗体的标题栏上输出该日子是星期几，
提示：该实验要计算日子，需要找一个参考，并且要先判断二月的天数；程序组成结构用到多分支结构；为了防止在处理数据时发生数据溢出，建议采用余数进行运算
还有一道题目
设计一个算术练习的程序
由计算机自动产生一位数加法练习题。学生输入答案后。单击“确认”按钮，如答案正确，自动产生下一题，否则重新输入答案。
提示：
本题目的关键是产生一位数的加法题，Visual Basic提供一个可以产生【0，1）只之间均匀分布的随机函数Rnd。一般地，要产生【a，b】之间的随机函数，可使用表达式：Int((b-a+1)*Rnd)+a
希望可以按上面的要求去做 因为我是一个菜鸟 听说这些很简单 但是我就是不会 如果你们的代码太深我就看不明的 尽量用一些比较简单的代码
还有还有 用分支结构来做 就像If 什么什么 then 什么什么 那样
谢谢~ 谢谢~ 需要完整的代码
提示：该实验要计算日子，需要找一个参考，并且要先判断二月的天数；程序组成结构用到多分支结构；为了防止在处理数据时发生数据溢出，建议采用余数进行运算
还有一道题目
设计一个算术练习的程序
由计算机自动产生一位数加法练习题。学生输入答案后。单击“确认”按钮，如答案正确，自动产生下一题，否则重新输入答案。
提示：
本题目的关键是产生一位数的加法题，Visual Basic提供一个可以产生【0，1）只之间均匀分布的随机函数Rnd。一般地，要产生【a，b】之间的随机函数，可使用表达式：Int((b-a+1)*Rnd)+a
希望可以按上面的要求去做 因为我是一个菜鸟 听说这些很简单 但是我就是不会 如果你们的代码太深我就看不明的 尽量用一些比较简单的代码
还有还有 用分支结构来做 就像If 什么什么 then 什么什么 那样
谢谢~ 谢谢~ 需要完整的代码
2008年4月2日为星期三，以这个为参照
Private Sub Form_Click()
Dim a As Long, b As Long
b = #月/日/年#
a = #4/2/2008#
Print (b - a) Mod 7 + 3
End Sub
第二个问题
Dim a As Integer, b As Integer
Private Sub Command1_Click()
If Val(Text3.Text) = a + b Then
MsgBox "回答正确，进入下一题！"
a = Int(Rnd * 10 + 0)
b = Int(Rnd * 10 + 0)
Text1.Text = a
Text2.Text = b
Text3.Text = ""
Text3.SetFocus
Else
MsgBox "回答错误，请重新作答！"
Text3.Text = ""
Text3.SetFocus
End If
End Sub
Private Sub form_Load()
a = Int(Rnd * 10 + 0)
b = Int(Rnd * 10 + 0)
Text1.Text = a
Text2.Text = b
Text3.Text = ""
End Sub
应试教育 服了...............拿分走人
最讨厌这样的题目，什么语言换个说法还是这样的题目。
最烦不自己动手,靠从网上下的来交作业的人,强烈BS这样的人.咒他们找不到工作