快来帮我做一题!输入两个正整数a,b,其中a不大于99,b最大不超过三位数,是a在左,b在右,拼接成一个新的数c,例如:a=6,b=16,则c为216.若a=18,b=476,则c为18476 用VB做.方法用select case语句做,实在不行用IF语

快来帮我做一题!输入两个正整数a,b,其中a不大于99,b最大不超过三位数,是a在左,b在右,拼接成一个新的数c,例如:a=6,b=16,则c为216.若a=18,b=476,则c为18476 用VB做.方法用select case语句做,实在不行用IF语
快来帮我做一题!
输入两个正整数a,b,其中a不大于99,b最大不超过三位数,是a在左,b在右,拼接成一个新的数c,例如:a=6,b=16,则c为216.若a=18,b=476,则c为18476
用VB做.方法用select case语句做,实在不行用IF语句做!

快来帮我做一题!输入两个正整数a,b,其中a不大于99,b最大不超过三位数,是a在左,b在右,拼接成一个新的数c,例如:a=6,b=16,则c为216.若a=18,b=476,则c为18476 用VB做.方法用select case语句做,实在不行用IF语
Private Sub Form_Load()
Dim a As Integer, b As Integer, str As String
a = Val(InputBox(""))
b = Val(InputBox(""))
Select Case a
Case 0 To 99
str = a
Case Else
Exit Sub
End Select
Select Case b
Case 0 To 999
str = str & b
Case Else
Exit Sub
End Select
MsgBox str
End Sub