用VB编程:从键盘输入一个长度为7的字符串,除首尾字符外,将其余5个字符按ASCII码降序排列并输出
掌握一些编程规则,然后进入编程系统,就可以运用键盘输入你的命令!!!
如果是单纯的C编写的话, 可以试试VI/VIM编辑器。
虽然学起来复杂了一点,但是学通了, 用起来那那是很顺畅的。
它的移动键是在普通模式的HJKL这四个键。
工欲善其身,必先利其器。
最后祝你编程愉快。
---危机忧虑拯救团 敬上 望采纳
以上是效果
以下是代码:
Dim j As Integer
Dim s(1 To 7), max As Integer
Private Sub Command1_Click()
If Len(Text1.Text) <> 7 Then
MsgBox "请输入七位字符串!"
Me.Cls
Else
For i = 1 To 7
s(i) = Asc(Mid(Text1.Text, i, 1))
Next i
For i = 2 To 5
max = s(i)
For j = i + 1 To 6
If s(j) > max Then
max = s(j)
s(j) = s(i)
s(i) = max
End If
Next j
Next i
For i = 1 To 7
Label1.Caption = Label1.Caption & Chr(s(i))
Next i
End If
End Sub
给你个思路吧,就不帮你写了,输入一个长度为7的字符串,那就把中间的5个字符提取出来,然后转换成ascii码,转换adcii码就是将char类型的字符进行数据类型转换,转换成int类型,排序的话可以用冒泡排序,然后输出到控制台
上午有空再写代码 现在先去睡觉
怎么在文本框中光标后面输入字符串(vb)
这个嘛,VB 的TEXTBOX有些功能你没有用上 .SelStart 开始选中的位置 .SelLength 选中长度 .SelText 选中文本 这三个都是可读写的 你试试 方法多种 1.得到当前位置,选中左边到变量 ,变量 & 新的字符串 ,变量 & 右边的字符,输出到TEXTBOX 2.也是得到位置 选中某一个字符,可以是前也可以是后...
编程题:1.从键盘输入一个整数,判断能否被5和6整除,再判断能不被5或6整...
void main(){ int n,x,y;printf("请输入一个数字:\\n");scanf("%d",&n);if(n%5==0)x=1;else x=0;if(n%6==0)y=1;else y=0;if(x&y) printf("这个数字能被5和6整除!");else if(x|y) printf("这个数字能被5或者6整除!\\n");else printf("这个数既不是5的倍数,也...
VB中从键盘输入一个正整数,然后把该数的每位数字按逆序输出
a = 5: b = 3 Call sub1(a, b)Print a, b Print x, y’这里就是指输入外部变量x,y End Sub Private Sub sub1(ByVal m As Integer, n As Integer)'这里有个注意点:m和n的传递方式不同,简单说来就是call sub1(a,b)中a的值传给m,之后m的改变不会影响a,两者独立改变值,而b...
VB程序设计从键盘输入一个小于八的正整数n,求n+(n+1 )!+(n+2...
9
VB从键盘中输入一个数然后在数组中删掉该数怎么写程序?
假定写一段代码在触发窗体的keypress事件中 private sub form1_keypress(KeyAscii as integer)dim a(1 to 10)a(1)=chr(KeyAscii)'---上面是存储字符,下面是删除。a(1)=val("")end sub
怎样从键盘输入一个0~99999之间的整数
void main(){ int number=0;printf("请输入一个整数: \\b");scanf("%d",&number);char string[25];itoa(number,string,10);printf("%s有",string);int i;for(i=0;string[i]!='\\0';)i++;printf("%d位\\n",i);\/\/一输出的就是整数number的位数。int j;for (j=i-1; j>=0; ...
vb 计算输入字数
End Sub --- '删减总字数不变的 Dim I1%, I2%, L%'声明整形变量 Private Sub Text1_Change() 'Change知道我不说了 I1 = Len(Text1.Text) 'len函数求出字符串的长度,返回一个数字,为字符串的长度 If I2 < I1 Then L = I1 I2 = Len(Text1.Text)Else L = I2 End If Label...
vb编程例题
题目好像不全。以下的程序是实现这样的功能:用随机函数产生10个50以内(包括50)的随机整数存入一维数组,从键盘上输入一个数,在数组中查找这样的数,最后返回查找结果:在数组的第几个元素中找到,或是未找到这样的数。Private Sub Command1_Click() Dim a(10) As Integer, x As Integer ...
vb编写程序,从键盘中输入10个整数,找出其中的最大值以及最大值所在的...
Private Sub Form_click()Dim a%(10), max%, k For i = 1 To 10 a(i) = Val(InputBox("请输入第" & i & "个正整数"))Print a(i);If max < a(i) Then max = a(i): k = i Next Print Print "最大值为:"; max; "是第"; k; "个数"End Sub ...
vb编程题,由键盘输入n个数,分别统计其中正数之和及个数,负数之和及个...
Private Sub Command1_Click()Dim a(1 To 10) As Single '这里假定输入10个数Dim Fcount As Integer, Zcount As IntegerDim i%For i = 1 To 10a(i) = InputBox("输入")NextFor i = 1 To 10If a(i) > 0 Then z = z + a(i)If a(i) < 0 Then f = f + a(i)NextF...