Visual Basic程序设计1-10 | 罗中算法练习

[alturet]

Visual Basic程序设计1-10 | 罗中算法练习

[AltureT]

关于github账号注册,同学们可以百度搜索:github注册

[wbenteng]

题目一的另一种解法倪

[AltureT]

@wbenteng
题目一的另一种解法倪

等你在评论里写出来,哈哈

[wbenteng]

这。。。我写写看，有点忘了

[wbenteng]

Private Sub Command1_Click()
Dim a(1 To 3) As Integer
a1 = Val(Text1.Text): a2 = Val(Text2.Text): a3 = Val(Text3.Text)
For i = 1 To 2
For j = i + 1 To 3
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Label1.Caption = Str(a1) + "" + Str(a2) + "" + Str(a3)

End Sub

[AltureT]

@wbenteng
Private Sub Command1_Click()
Dim a(1 To 3) As Integer
a1 = Val(Text1.Text): a2 = Val(Text2.Text): a3 = Val(Text3.Text)
For i = 1 To 2
For j = i + 1 To 3
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
Label1.Caption = Str(a1) + "" + Str(a2) + "" + Str(a3)

End Sub

排序代码没错,可是你有两个小问题:

1. 你定义的是数组变量a,写法应该是a(1),而不是a1
2. 输出这里

Label1.Caption = Str(a1) + "" + Str(a2) + "" + Str(a3)

a1改成a(1),然后你加了一个""字符串,不是相当于没加吗.
不过str函数默认会在前面加一个空格的

[wbenteng]

那你答案的输出语句的“”“”也可以去掉哩

[AltureT]

@wbenteng
那你答案的输出语句的“”“”也可以去掉哩

恩，是的，可是我写出来是一种提示作用，有些学生可能不清楚str用完后会自动在前面加一个空格

[wbenteng]

第二题的sum用integer会不会溢出呀

[AltureT]

@wbenteng
第二题的sum用integer会不会溢出呀

你说的对，我只限制了单个数，两数加起来就超过integer范围了，我稍后修改

[AltureT]

@yichengsjw123
题目七的另一种解法
Dim a , b , c as Integer
Dim s as Integer
a=Val (text1.text)
b=Val (text2.text)
c=Val (text3.text)
If a>b then t=a:a=b:b=t
If a>c then t=a:a=c:c=t
If b>c then t=b:b=c:c=t
s=b+c
Lable1.caption= Str( s)

很不错的思路，先将3个数字从小到大排序，然后将最大的两个相加。

另外提醒一点，我们在评论中添加代码，可以代码上方加入（双引号里面的部分）“ ```vb ”，下方加入“ ``` ”，让我们的代码更加美观：

Dim a , b , c as Integer
Dim s as Integer
a=Val (text1.text)
b=Val (text2.text)
c=Val (text3.text)
If a>b then t=a:a=b:b=t
If a>c then t=a:a=c:c=t
If b>c then t=b:b=c:c=t
s=b+c
Lable1.caption= Str(s)

[AltureT]

写完后可以点击预览观察效果，格式如下图：

[LuisGarrettLyu]

你好，黄老师
网站做的真不错！继续努力！
祝顺利