UC知道求两段VB小代码
来源：百度知道 编辑：UC知道 时间：2024/06/04 01:24:28
求编两段代码
（1）当a=“Visual Basic Programming” ，b=“Quick Learning”
计算c=Left(b,5) & UCase(Mid(a,7,6)) & Right (a,12)
（2）A国有x亿人口，按人口年增长y计算，n年后A国人口有多少
第2题是要求有个API界面，3个输入框，分别是原人口，增长率，和增长年，然后点击确定，算出结果
（1）当a=“Visual Basic Programming” ，b=“Quick Learning”
计算c=Left(b,5) & UCase(Mid(a,7,6)) & Right (a,12)
（2）A国有x亿人口，按人口年增长y计算，n年后A国人口有多少
第2题是要求有个API界面，3个输入框，分别是原人口，增长率，和增长年，然后点击确定，算出结果
Private Sub Command1_Click()
a = "Visual Basic Programming"
b = "Quick Learning"
c = Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
MsgBox c
End Sub
'A国有x亿人口，按人口年增长y计算，n年后A国人口有多少
Private Sub Command2_Click()
Dim a As Double
Dim x As Double
x = 12000000#
y = 0.023
a = 1#
n = 20
For i = 1 To n
a = x * (1 + y)
Next
MsgBox a
End Sub
不懂加我给你讲
a = "Visual Basic Programming"
b = "uick Learning"
c = Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
MsgBox c
c=ick BASIC Programming
for i=1 to n
x=x+(x*y)
next i
msgbox x
1、结果是c="Quick BASIC Programming"
Private Sub Form_Load()
a = "Visual Basic Programming"
b = "uick Learning"
MsgBox "c=" & Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
End Sub
2、添加