UC知道vb简单问题 要写出代码，能贴截图就更好了
来源：百度知道 编辑：UC知道 时间：2024/09/22 15:37:48
院系、专业、姓名、性别、学号用甲乙丙丁代替
1．在窗体上每0.5s输出一行文本（楷体三号，男生蓝色、女生红色），运行结果如例图（院系、专业、姓名、性别、学号必须是你本人真实的，以便以此为根据记成绩）：
答案：
2．单击命令按钮，在窗体上列出一行2（含）到30（含）之间的偶数（男生作）（或奇数（女生作）），窗体的标题栏文本是你的姓名与性别。
答案：
3．窗体中心为圆心，随机长为半径，每0.5s打印一个蓝色的圆（男生作）（红色的圆（女生作）），窗体的标题栏文本是你的姓名与性别。
答案：
4．填空，完成程序，单击窗体显示你的年龄。
Function y(b As Date) As Integer
y = (Now - b) \ 365
End Function
Private Sub Form_click()
Dim i As Integer
i = y( )
Print "我的年龄是" + Str(i) + " 周岁"
End Sub
答案：
5．实现自动换行的标签，当单击按钮时，标签中分四行显示“锄禾日当午，汗滴禾下土。谁知盘中餐，粒粒皆辛苦。”。
答案：
1．在窗体上每0.5s输出一行文本（楷体三号，男生蓝色、女生红色），运行结果如例图（院系、专业、姓名、性别、学号必须是你本人真实的，以便以此为根据记成绩）：
答案：
2．单击命令按钮，在窗体上列出一行2（含）到30（含）之间的偶数（男生作）（或奇数（女生作）），窗体的标题栏文本是你的姓名与性别。
答案：
3．窗体中心为圆心，随机长为半径，每0.5s打印一个蓝色的圆（男生作）（红色的圆（女生作）），窗体的标题栏文本是你的姓名与性别。
答案：
4．填空，完成程序，单击窗体显示你的年龄。
Function y(b As Date) As Integer
y = (Now - b) \ 365
End Function
Private Sub Form_click()
Dim i As Integer
i = y( )
Print "我的年龄是" + Str(i) + " 周岁"
End Sub
答案：
5．实现自动换行的标签，当单击按钮时，标签中分四行显示“锄禾日当午，汗滴禾下土。谁知盘中餐，粒粒皆辛苦。”。
答案：
第一题：
Private Sub Form_Activate()
Me.AutoRedraw = True
Timer1.Interval = 500
Me.FontName = "楷体_GB2312"
Me.FontSize = 16 '三号字体的数值形式
Me.ForeColor = vbBlue '女生改成vbRed
End Sub
Private Sub Timer1_Timer()
Static n
If n = 0 Then
Print "VB6.0期中测验"
n = n + 1
ElseIf n = 1 Then
Print "院系：甲"
n = n + 1
ElseIf n = 2 Then
Print "专业：乙"
n = n + 1
ElseIf n = 3 Then
Print "姓名：丙（男）"
n = n + 1
ElseIf n = 4 Then
Print "学号：丁"
n = n + 1
Else
Me.Cls
n = 0
End If
End Sub
第二题：
Private Sub Command1_Click()
For i = 1 To 30
If i Mod 2 = 0 Then Print i; '女生用If i Mod 2 = 1 Then Print i;
Next
End Sub
第三题：
Private Sub Form_Activate()
Me.AutoRedraw = True
Timer1.Interval = 500
Me.ForeColor = vbBlue '女生改成vbRed
Me.Caption = &q