用VB编程:输入英文单词,按A到Z排列
画两个文本,一个按键,名字取默认,转换,我字母是按ASCII编码排列大小,如有大写的改成小写的,或者你把代码改下,,有点忘了,该代码经测试可以了,
PrivateSubCommand1_Click()
DimaAsInteger
Dimb(100)AsString
a=Len(Text1.Text)
DimxAsInteger
Forx=1Toa
b(x)=qz(Text1.Text,x)
Nextx
-------------------------冒泡排列--------------------------------
DimkAsInteger
DimtempAsString
Forl=1Toa-1
Fork=1Toa-1
IfAsc(b(k))>Asc(b(k+1))Then
temp=b(k)
b(k)=b(k+1)
b(k+1)=temp
EndIf
Nextk
Nextl
Forl=1Toa
Text2.Text=Text2.Text+b(l)
Nextl
EndSub
PublicFunctionqz(kkAsString,bbAsInteger)AsString自已定义的提取字符函数
DimaAsString
a=Left(kk,bb)
qz=Right(a,1)
EndFunction
PrivateSubForm_Load()
Text1.Text="请输入你要排列的单词"
Text2.Text=""
Command1.Caption="排列"
EndSub
本回答由网友推荐
C语言编程:从键盘中输入一个英文字符串
#include
main()
ss[1024],s[1024];
放最长的,s
放刚读入的
存最长的长度
printf("enter
string
1\n");
fgets(ss,1024,stdin);
键盘输入第一个,不用比较,它现在最长
strlen(ss);
(i=1;i<10;i++){
printf("enter
string
%d\n",i+1);
fgets(s,1024,stdin);
键盘输入第i个,
(strlen(s)
strlen(s);
strcpy(ss,s);}
长度大于以前的,则更新
字符串内容
printf("\n%s\n",ss);