UC知道VB程序设计小问题
来源：百度知道 编辑：UC知道 时间：2024/06/28 19:58:23
在命令按钮Command1的单击事件中完成：对文本框Text1中输入的1个四位数，将其加密后在文本框Text2中输出。
加密的方法是：
将该数每一位上的数字加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”（不包括引号）。
要求：控件名与标题的对应必须与图中的一致。
加密的方法是：
将该数每一位上的数字加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&nbs