a=text1.text
b=text2.text
c=text3.text
程序会把a、b,c当字符串来比较大小,也就是按着ASCII码来比较大小的,所以得不到真正的结果,比如 23,34,5,那么最大的会是5.
下面的可以:
Private Sub Command1_Click()
a = Val(Text1.Text)'text1.text是字符串形式的要改成数字形式的
b = Val(Text2.Text)
c = Val(Text3.Text)
If a >b And a >c Then
Label1.Caption = a
ElseIf b >c And b >a Then
Label1.Caption = b
ElseIf c >a And c >b Then
Label1.Caption = c
End If
End Sub
你自己的程序也可以改一下,应该就可以了。
Private Sub Command1_Click()
a=VAL(text1.text)
b=VAL(text2.text)
c=VAL(text3.text)
if a >b then
if a >c then
label1.caption=a
end if
elseif b >c then
label1.caption=b
else
label1.caption=c
end if
end sub
以下是一个使用C语言编写的程序示例,可以实现小A和小B比较两张牌的大小,并输出比较结果:#include <stdio.h>
int main() {
int a1, a2, b1, b2
char result
// 读取四张牌的数字
scanf("%d %d", &a1, &a2)
scanf("%d %d", &b1, &b2)
// 判断 A 的牌是否更大
if (a1 == a2 &&b1 != b2) {
result = 'A'
} else if (b1 == b2 &&a1 != a2) { // 判断 B 的牌是否更大
result = 'B'
} else if (a1 == a2 &&b1 == b2) { // 判断平局
result = 'Draw'
} else if (a1 >a2 &&b1 <= b2) {
result = 'A'
} else if (a1 <a2 &&b1 >= b2) {
result = 'B'
} else if (a1 >a2 &&b1 >b2 &&a1 >b1) {
result = 'A'
} else if (a1 >a2 &&b1 >b2 &&a1 <b1) {
result = 'B'
} else if (a1 <a2 &&b1 <b2 &&a2 >b2) {
result = 'A'
} else if (a1 <a2 &&b1 <b2 &&a2 <b2) {
result = 'B'
} else if (a1 == a2 &&b1 <b2) {
result = 'A'
} else if (a1 == a2 &&b1 >b2) {
result = 'B'
} else if (b1 == b2 &&a1 <a2) {
result = 'B'
} else if (b1 == b2 &&a1 >a2) {
result = 'A'
} else {
result = 'Draw' // 其他情况均为平局
}
// 输出比较结果
printf("%c\n", result)
return 0
}
程序首先从控制台中获取用户输入的四个整数(a1、a2、b1和b2),然后使用一系列的条件判断语句来比较两组牌的大小,最终将比较结果存储在变量result中。具体地,根据题目给出的牌面大小规则依次比较两组牌的大小,并按照题目要求输出比较结果。
假设玩家输入的都是合法的牌面数字,因此没有进行错误检查。如果需要处理输入不合法的情况,还需要添加相应的代码。
#include <stdio.h>#include <stdlib.h>
int main()
{
int i,j,t,a[6]
printf("Please input 6 integers:\n")
for(i=0i<6i++)
scanf("%d",&a[i])
for(i=0i<5i++) /* 冒泡法排序 */
for(j=0j<6-i-1j++)
if(a[j]>a[j+1])
{t=a[j]/* 交换a[i]和a[j] */
a[j]=a[j+1]
a[j+1]=t
}
printf("The sequence after sort is:\n")
for(i=0i<6i++)
printf("%-5d",a[i])
printf("\n")
system("pause")
return 0
}
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)