Question

VB清屏问题

设计个程序，具体看我做的吧
Dim x As Integer
Private Sub Form_Click()

x = Int(Rnd * (9) + 1)
If x = 1 Then
FontName = "宋体"
Else
If x = 2 Then
FontBold = True

Else
If x = 3 Then
FontName = "楷体"
Else
Cls
End If
End If
End If

End Sub

Private Sub Form_Load()
Print "欢迎进入VisualBasic世界!"
End Sub
其中有条要求是清屏后又循环显示，可是我做出来的清屏后就没了，怎么改啊？
2楼的用了下，表面上是行的通，但是跟要求的实质不符。题目中有提示说：字体以楷书或仿宋显示时，赋值时应写为：FontName = "宋体"或FontName = "楷体"。以该变量作为测试表达式，要表示“其他值时，清屏后又循环显示”，只要在CASE ELSE中清屏，同时把变量又赋值为1即可。注意字体的设置语句与打印语句的先后次序，详见前面的分析”

Answer 1

帮你修改了下···不过你的x定义值有问题···x不可能为1的···

Private Sub Form_Click()
Cls
x = Int(Rnd * 9+1)
If x = 1 Then
Me.FontName = "宋体"
Print "欢迎进入VisualBasic世界!"
ElseIf x = 2 Then
Me.FontBold = True
Print "欢迎进入VisualBasic世界!"
ElseIf x = 3 Then
Me.FontName = "楷体_GB2312"
Print "欢迎进入VisualBasic世界!"
Else
Cls
End If

End Sub

Private Sub Form_Load()
Me.Show
Print "欢迎进入VisualBasic世界!"
End Sub

Answer 2

你这个很乱。。。。
多个条件判断用select case 语句会简单很多。。
select case i
case 1
……
case 2
……
………………
end select
你的if 很乱很乱……
还有，你的在窗体上输出时在load里面输出的，load时间只在窗体读取的时候发生
应该在清屏之后再输入

Print "欢迎进入VisualBasic世界!"

Answer 3

你这段代码的意思是.加载窗体.显示欢迎进入VisualBasic世界,单击窗体.对字体进行设置,清屏,结束.....那你说它还会再加载么.不会..那它也就不会显示那句话了