VB程序设计小问题
加密的方法是：
将该数每一位上的数字加9，然后除以10取余，做为该位上的新数字，最后将第1位和第3位上的数字互换，第2位和第4位上的数字互换，组成加密后的新数。
例：输入：1257，则输出：4601
2.在命令按钮command1的单击事件内完成求出三角形面积。三角形面积公式为：Area=sqr(s*(s-a)*(s-b)*(s-c)) ，其中s=(a+b+c)/2。三角形的三条边长a、b、c分别由三个文本框text1,text2,text3输入，求得面积由文本框text4输出，界面如图。
如果不能构成三角形则在文本框text4输出"不能构成三角形"。数据类型均采用Single类型(包括面积Area).
提示：需要判断输入的边长能否构成三角形
求程序代码。。。谢谢~~
怎么办。。第一题的程序都不行诶。。。郁闷
大家再帮忙给几个程序代码~我加悬赏到50 谢谢啦~
3.编程，程序设计界面如图，有3个文本框Text1、Text2、Text3，一个标签Label1，一个命令按钮Command1。当程序运行时，在文本框中分别输入3个0~255的数据，单击“显示颜色”按钮，就会使用RGB函数把对应的颜色显示在标签上。效果如图。
4.输入A、B、C三个数，输出最大数。要求在文本框text1、text2、text3内输入三个数，单击command1按钮在文本框text4输出最大数。
5.请编写程序：实现单选题改题。
程序由1个标签、4个单选钮、1个命令按钮和1个文本框构成界面，除文本框以外控件的名称与标题如图所示。文本框名称为Text1
程序启动时，没有任何一个选项被选中。
当作出单选选择后，单击“改题”按钮，文本框中就会出现相应的内容：如果选择的是A或C或D，则文本框中显示对应的字母，否则(即选B),文本框中就显示“10”（不包括引号）。
要求：控件名与标题的对应必须与图中的一致。 展开
Private Sub Command1_Click()
Dim y(4)
For i = 1 To Len(Text1.Text)
x = Mid(Val(Text1.Text), i, 1)
y(i) = (x + 9) Mod 10
Next i
Text2.Text = y(3) & y(1) & y(4) & y(2)
End Sub
第二题
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single ，s as single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And b + c > a And c + a > b Then
s = (a + b + c) / 2
s = Sqr(s * (s - a) * (s - b) * (s - c))
Text4.Text = "该三角形面积" & s
Else
Text4.Text = "不能构成三角形"
End If
End Sub
===================
第三题
Private Sub Command1_Click()
Label1.ForeColor = RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
End Sub
至于要不要判断这三个文本框输入的数值过大或过小的问题 你自己加个if判断
不超过才执行以上语句。
第四题
Private Sub Command1_Click()
Dim max As Single
max = 0
If max < Val(Text1.Text) Then max = Val(Text1.Text)
If max < Val(Text2.Text) Then max = Val(Text2.Text)
If max < Val(Text3.Text) Then max = Val(Text3.Text)
Text4.Text = max
End Sub
第五题
要求：控件名与标题的对应必须与图中的一致
没看到你的图 你自己改代码吧。
Private Sub Command1_Click()
If Option1.Value = True Then Text1.Text = Option1.Caption
If Option2.Value = True Then Text1.Text = "10"
If Option3.Value = True Then Text1.Text = Option3.Caption
If Option4.Value = True Then Text1.Text = Option4.Caption
End Sub
第一题 并没有做错~ 关键在于 评分软件是死的 方法有多种 给你一个比较正规的答案
Private Sub Command1_Click()
Dim a(3) As Integer
x = Val(Text1.Text)
a(0) = x \ 1000 '千位数
a(1) = (x Mod 1000) \ 100 '百位数
a(2) = ((x Mod 1000) Mod 100) \ 10 '十位数
a(3) = (((x Mod 1000) Mod 100) Mod 10) '个位数
For i = 0 To 3
a(i) = (a(i) + 9) Mod 10
Next i
Text2.Text = a(0) * 10 + a(1) + a(2) * 1000 + a(3) * 100
End Sub
Dim i&, ss$
ss = Text1
If Len(ss) <> 4 Or (Not IsNumeric(ss)) Then Exit Sub '判断是不是4位数
For i = 1 To 4
Mid(ss, i, 1) = (Val(Mid(ss, i, 1)) + 9) Mod 10 '加9取10的余
Next
Text2 = Right(ss, 2) & Left(ss, 2) '1,3交换,2,4交换,等同于前后交换
End Sub
Private Sub Command1_Click()
Dim s!, a!, b!, c!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a + b > c And a + c > b And b + c > a Then
s = (a + b + c) / 2
Text4 = Sqr(s * (s - a) * (s - b) * (s - c))
Else
Text4 = "不能构成三角形"
End If
End Sub
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & ((Mid(Text1.Text, i, 1) + 9) Mod 10)
Next
Text2.Text = Mid(Text2.Text, 3, 1) & Mid(Text2.Text, 4, 1) & Mid(Text2.Text, 1, 1) & Mid(Text2.Text, 2, 1)
End Sub
2.
Private Sub Command1_Click()
If CDbl(Text1.Text) + CDbl(Text2.Text) > CDbl(Text3.Text) Then
If CDbl(Text2.Text) + CDbl(Text3.Text) > CDbl(Text1.Text) Then
If CDbl(Text1.Text) + CDbl(Text3.Text) > CDbl(Text2.Text) Then
Dim s As Double
s = (CDbl(Text1.Text) + CDbl(Text2.Text) + CDbl(Text3.Text)) / 2
Text4.Text = Sqr(s * (s - CDbl(Text1.Text)) * (s - CDbl(Text2.Text)) * (s - CDbl(Text3.Text)))
Else
MsgBox "不能构成三角形"
End If
Else
MsgBox "不能构成三角形"
End If
Else
MsgBox "不能构成三角形"
End If
End Sub
