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即可。注意字体的设置语句与打印语句的先后次序，详见前面的分析”

答案：帮你修改了下···不过你的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

其他：你这段代码的意思是.加载窗体.显示欢迎进入VisualBasic世界,单击窗体.对字体进行设置,清屏,结束.....那你说它还会再加载么.不会..那它也就不会显示那句话了 你这个很乱。。。。
多个条件判断用select case 语句会简单很多。。
select case i
case 1
……
case 2
……
………………
end select
你的if 很乱很乱……
还有，你的在窗体上输出时在load里面输出的，load时间只在窗体读取的时候发生
应该在清屏之后再输入

Print "欢迎进入VisualBasic世界!" 

上一个：VB+Access数据库，联网或远程登录的问题
下一个：跪求VB建立宽带连接（账号密码在代码中写入）