快来帮我做一题!输入两个正整数a,b,其中a不大于99,b最大不超过三位数,是a在左,b在右,拼接成一个新的数c,例如:a=6,b=16,则c为216.若a=18,b=476,则c为18476 用VB做.方法用select case语句做,实在不行用IF语
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 15:16:12
xR[KA+S0hFX+d
טE[ew+Te+
+(j.ffE3PAO<Ι&g1rlJa~b9cJy툗nyAYȎOi}-K@]~Yd>bgb@^xkoFһ|Z]v؇ J Y~'AI+)^Q ~SPj dU[r_V&6,0-P
xjczj*`0ѧ'G2hu4@ 1TS8n)-@@(i3{]/ܒyD^
9 l4
҆ꠡ)@c9n2.FݏzIq!yJEZDwD=
快来帮我做一题!输入两个正整数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