大家帮我一下看  要符合以下条件的  程序



在窗体上创建4个命令按钮command1,command2,command3,command4.
要求
(1)命令按扭的caption属性分别为"字体变大""字体变小""加粗"和"标准"
(2)每单击command1按扭和command2按扭一次,字体变大或变小3个单位
(3)单击command3按扭时,字体变粗,单击command4按扭时,字体有由粗体变为标准
(4)4个按扭每单击一次都在窗体上显示"欢迎使用VB"
(5)双击窗体后可以退出

Public Function retrunm()

 NL = Chr(13) + Chr(10)
msg$ = "1.运行dos命令" + NL + "2.运行vb应用程序"
msg$ = msg$ + NL + "3.计算器"
msg$ = msg$ + NL + NL + "请输入数字选择"
retrumn = InputBox(msg$)

End Function
Private Sub command1_click()
  
     r = retrunm()
    If r = 1 Then
     x = Shell(", 1)
    ElseIf r = 2 Then
      x = Shell("D:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE", 1)
    ElseIf r = 3 Then
        x = Shell("cala.exe", 1)
    Else
    MsgBox "请输入1-3的数"
    End If
End Sub
Private Sub command2_click()
End
End Sub

运行后，当我输入任何数字，出来的都是"请输入1-3的数"对话框，请问问题出来哪，请高人指点？

二楼朋友，在使用变量前最好先定义，其中retrunm()返回的是一个字符串，肯定会弹出 MsgBox "请输入1-3的数"　嘛。你现在会改了吧？

[bc03]

一般在这求作业，没人会理你，如果来这里学习，还是有热心人会帮下你的