早教吧作业答案频道 -->其他-->
VB合成题.将a数的十位和个位数依次放在c数的千位和十位上,b数的十位和个位数依次放在c数的百位和个位上例如,当a=45,b=12.调用该函数后,c=4152.Functionfun(aAsInteger,bAsInteger)'EndFunctionPrivateS
题目详情
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
例如,当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
▼优质解答
答案和解析
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
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
看了 VB合成题.将a数的十位和个...的网友还看了以下:
每千克a元的糖果m千克和每千克b元的糖果n千克混合后,糖果售价是每千克元.(用代数式表示) 2020-03-30 …
某商店甲种糖果的单价为每千克20元,乙种糖果的单价为每千克16元,为了促销,现将10千克的乙种糖果 2020-05-13 …
1.小陈期中考试,语数平均88分,数英平均91分,英自平均89分,数学()分.2.奶糖每千克6.8 2020-05-13 …
sos,在线等啊,六年级数学题~~1.含糖15%的糖水50千克和含糖20%的糖水150千克混合后, 2020-05-14 …
1.只含三个字母X、Y、Z且系数均为1的五次单项式共有个2.每千克X元的糖果A千克和每千克Y元的糖 2020-06-06 …
1、含盐10%的盐水m千克,其中盐重10%m千克;含盐18%的盐水n千克,其中盐重18%n千克;如 2020-06-30 …
将甲乙两种糖果混合后出售,已知甲种糖果每千克M元,取A克;乙种糖果每千克N元,取B千克,则混合后每 2020-07-08 …
1、790,800,810这三个数分别减去同一个三位数时,得到的差是三个质数,减去的三位数是?2、 2020-07-26 …
代数式10/|x|-2的取值范围是?(要理由)有两种盐水,甲种盐水x克,含盐20%,乙种盐水y克,含 2020-12-31 …
初一有过这样一道数学题:(我记不清题目了),题意大概就是说有两个果园,然后第一个果园里有多少千克苹果 2021-02-08 …