有16个数，1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16
在text中手动输入一个数，把值赋给a，
然后用c=15-a显示在label中，c的要求是取值在1到16，包括1和16。取同尾数的
例如;a=8,计算完c=7，则在label中输出7。（17大于16就不输出了，违反规则）
   a=9，计算完C=6，则输出6 16两个数
a=16，计算完C=-1，则取1 11（这里不知道怎么取正数）
今天刚学的VB，就遇到了这么复杂的问题！！希望高手给解答
不知道用什么语句好，用了if感觉不够用，需要好多if。不知道什么语句能满足这么多条件的

太没逻辑了。

帮帮忙啊，我实在搞不明白了，总是实现不了，

意思表达要清晰。

新建个工程，在窗体上放3个控件，Text1,command1,label1
然后把代码复制运行，不知道是不是你要的结果
Private Sub Command1_Click()
Dim a As Integer
Dim c As Integer
a = Val(Trim(Text1.Text))
If a <> 15 Then
c = 15 - a
   If c >= -16 And c <= 16 Then
   c = Abs(c)
   Label1.Caption = c
   Else
   Label1.Caption = "无效"
   End If
Else
Label1.Caption = "无效"
End If
End Sub
 
Private Sub Form_Load()
Label1.Caption = ""
Text1.Text = ""
Command1.Caption = "测试"
End Sub

看看楼下写的.