VB合成题.将a数的十位和个位数依次放在c数的千位和十位上,b数的十位和个位数依次放在c数的百位和个位上例如,当a=45,b=12.调用该函数后,c=4152.Functionfun(aAsInteger,bAsInteger)'EndFunctionPrivateS

Question

VB合成题.将a数的十位和个位数依次放在c数的千位和十位上,b数的十位和个位数依次放在c数的百位和个位上
例如,当a=45,b=12.调用该函数后,c=4152.
Function fun(a As Integer, b As Integer)

'
End Function
Private Sub Command1_Click()
Dim i, a, b, x1 As Integer, x2 As Integer, c As Integer
x1 = Val(Text1.Text)
x2 = Val(Text2.Text)
If Text1.Text = "" Or Text2.Text = "" Then
d = MsgBox("a,b不能为空", vbDefaultButton2, "输入错误")
Text1.SetFocus
Else
c = fun(x1, x2)
Text3.Text = c
End If
If c Empty Then Call NONO
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Function NONO()
Dim a As Integer, b As Integer
Open App.Path & "\" & "progin.dat" For Input As #1
Open App.Path & "\" & "progout.dat" For Output As #2
For i = 1 To 5
Input #1, a, b
c = fun(a, b)
Print #2, c
Next i
Close #1
Close #2
End Function

Answer 1

Function fun(a As string, b As string)
dim x as string
dim y as string
dim m as string
dim n as string
dim num as Integer
x=left(a,1)
y=ringt(a,1)
m=left(b,1)
n=ringt(b,1)
num=val(x)*1000+val(m)*100+val(y)*10+val(n)
End Function