我想用VB输出文字“你好”，写下代码谢谢

msgbox ("你好")    '弹提示框

print ("你好")    '打印到界面

sendkeys ("你好")    '向当前有焦点的程序发送字符串

不知道是不是你要的“输出文字”，反正常见的“输出文字”也就如上几种了。

1int(rnd71+18) VB内部函数

2(x=0) or (y=0) VB逻辑运算和关系运算

3y=m mod 10 VB算术运算

x=m\10

n=y10+x

4(x=35) or (x=57) or (x=37) VB逻辑运算和关系运算

5x假设为这个三位数，

y=x mod 100

z=y/10

z就为这个三位数的十位数了

6(0<=x<=60) or (90<= x <= 100) VB逻辑运算和关系运算

7x=数学 y=语文 z=英语

(x+y+z>=270) or (x+y>=190) or (y+z>=190) or (x+z>=190) or (x>=100) or (y>=100) or (z>=100) VB逻辑运算和关系运算

上面如果有一个为True则为True

写的有点乱，因为这是VB很基础的东西，所以没有写的太详细，希望你能看的懂，看不懂我可以再做解释！

if textbox2text=男 then

if textbox3text>=60 then

label5text=是

else

label5text=否

endif

elseif textbox2text=女 then

if textbox4=工人 and TextBox3Text >= "50" Then

Label5Text = "是"

elseif textbox4 <>工人 and TextBox3Text >= "55" Then

Label5Text = "是"

else

label5text=否

endif

endif

大体是这样 我这没法调试

第一题：在Change事件中进行判断，主要条件是9位学号，前2位年级，第5位类型

Private Sub Text1_Change()

If Len(Text1Text) = 9 Then '等于9位才进行判断

Select Case Left(Trim(Text1Text), 2)'取前2位判断年级

Case "01"

Text2Text = "一年级" '01,02,03代表年级

Case "02"

Text2Text = "二年级"

Case "03"

Text2Text = "三年级"

Case Else

Text2Text = ""

Text3Text = "" '超出范围即无效学号，清空显示

End Select

Select Case Mid(Trim(Text1Text), 5, 1)取第5位判断类型

Case "2"

Text3Text = "博士" '2-博士，3-硕士，4-本科，5-专科

Case "3"

Text3Text = "硕士"

Case "4"

Text3Text = "本科"

Case "5"

Text3Text = "专科"

Case Else

Text2Text = ""

Text3Text = "" '超出范围即无效学号，清空显示

End Select

Else

Text2Text = ""

Text3Text = ""

End If

End Sub

第二题：主要条件是即时转换，对写入及删除产生一个即时效果，大小写及非字字母转换，所以在Change中判断，用ASC、Chrw检测及转换。

Private Sub Text4_Change()

Text5Text = "" '清空显示框

For i = 1 To Len(Text4Text)'取每一位字符

Select Case Asc(Mid(Text4Text, i, 1))'对每一位字符判断

Case 65 To 90 '大写字母

Text5Text = Text5Text & ChrW(Asc(Mid(Text4Text, i, 1)) + 32)'转小写

Case 92 To 122 '小写字母

Text5Text = Text5Text & ChrW(Asc(Mid(Text4Text, i, 1)) - 32)'转大写

Case Else

Text5Text = Text5Text & ""'转星号

End Select

Next

End Sub

第三题：由于用复选框作选择，复选框的值为0或1，数值型，问题条件只是0或255固定值，所以直接乘255就可以满足条件。（建议使用三个滑块，效果更好）

在3个复选框的Click事件中写

Private Sub Check1_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

Private Sub Check2_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

Private Sub Check3_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

本题最后一行是说文本文件的9行数据为：

3

4

6

8

1

2

5

9

3

根据程序代码执行的流程，对变量x,y,z跟踪如下；

首先：y = 0，x = CDbl(srReadLine)

这里读取文件的第一行，保存到变量x，所以：x = 3

执行循环

Do While x < 5

If x = 4 Then

srClose()

sr = IOFileOpenText("data1txt")

End If

z = x + y

x = CDbl(srReadLine)

y = CDbl(srReadLine)

Loop

因为x = 3，满足x < 5，但是不满足x = 4，所以：

z = x + y ==>z=3

x = CDbl(srReadLine) ==>x=4 '读第2行

y = CDbl(srReadLine) ==>y=6 '读第3行

执行循环

Do While x < 5

If x = 4 Then

srClose()

sr = IOFileOpenText("data1txt")

End If

z = x + y

x = CDbl(srReadLine)

y = CDbl(srReadLine)

Loop

因为x = 4，满足x < 5，也满足x = 4，所以：

执行

srClose()

sr = IOFileOpenText("data1txt")

即：先关闭文件，再次打开文件；

执行，将重新从文件第1行开始读取

z = x + y ==>z=10

x = CDbl(srReadLine) ==>x=3 '读第1行

y = CDbl(srReadLine) ==>y=4 '读第2行

执行循环

Do While x < 5

If x = 4 Then

srClose()

sr = IOFileOpenText("data1txt")

End If

z = x + y

x = CDbl(srReadLine)

y = CDbl(srReadLine)

Loop

因为x = 3，满足x < 5，但是不满足x = 4，所以：

执行

z = x + y ==>z=7

x = CDbl(srReadLine) ==>x=6 '读第3行

y = CDbl(srReadLine) ==>y=8 '读第4行

执行循环

Do While x < 5

If x = 4 Then

srClose()

sr = IOFileOpenText("data1txt")

End If

z = x + y

x = CDbl(srReadLine)

y = CDbl(srReadLine)

Loop

因为x = 6，不满足x < 5，循环结束

所以最后z的内容是 7 ，所以文本框显示7

Case 6 To 9

adviseText = "早晨好"

Case 10

adviseText = "上午好"

Case 11 To 13

adviseText = "中午好"

Case 14 To 18

adviseText = "下午好"

Case 19 To 24

adviseText = "晚上好"

Case Else

adviseText = "凌晨了，还不去睡觉……"