[从一个字符串中查找子串如果存在则统计子串的个数]Private Sub Command1_Click() Dim arr, s As String s = InputBox("输入字串:", , "you") If InStr(Text1, s) > 0 Then arr = Split(Text1, s) MsgBox s & "共找到:" & UBound(arr) El...+阅读
没代码怎么看。。。
附上我的:(没调)
program easy;
var st:string;
a:array [1..3] of longint;
i:longint;
begin
readln(st);
fillchar(a,sizeof(a),0);
for i:=1 to length(st) do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then
a[1]:=a[1]+1 else
if (st[i] in ['0'..'9']) then a[2]:=a[2]+1 else a[3]:=a[3]+1;
writeln('letter:',a[1]);
writeln('number:',a[2]);
writeln('others:',a[3]);
end.
BS楼上。。。
以下为关联文档:
危险化学品标准化安全管理制度汇编您好! 目 录 一、安全生产责任制 二、安全教育制度 三、安全作业证制度 四、工艺操作安全制度 五、安全岗位安全管理制度 六、防火防爆制度 七、安全检查制度 八、安全检修制...
担保公司管理制度汇编铜官山区中小企业信用担保中心管理办法 第一章 总则 第一条 为解决中小企业融资信用担保困难,建立健全中小企业服务体系,促进中小企业健康发展,经区政府批准设立铜官山区中小企...
输入N个由 0 9组成的数字字符串统计出现频率最高的数字Dim num(10) As Integer, i As Integer, s As String, max(10) As Integer, k As Integer For i = 0 To Len(Text1.Text) - 1 num(Val(Mid(Text1.Text, i + 1, 1))) = num(V...
今天百度的笔试题之一开发测试工程师改程序目的是从一个字符#include "stdio.h" #include "string.h" void foo(char a[100],int cnt[256]){ memset(cnt,0,sizeof(cnt)*256); while(*a!='\0'){ if(*a>='a'&&*a<='z'){ ++cnt[*a]; } ++a; }...
LOL英雄联盟游戏ID可以使用那些特殊字符现在很多的输入法可以直接用拼音打出偏旁文字。而这些文字是被这些游戏允许的哦。列如在输入法中输入dian 你就会看到(丶)这样一个符号。这个符号是能够在游戏中使用的。能够...
汇编程序分类统计字符串中大小写字母数字其他字符个数;分类统计字符串中大小写字母,数字,其他字符个数 ;定义字符串,不需要键盘输入,统计结果依次保存到X1,X2,X3,X4中 data segment buf db 'asdg123456,^&%$#$' X1 db 0 X2 db 0 X3 db...
用汇编语言统计字符串中每个字符的个数要简单详细带解析code segment assume cs:code org 100h start:jmp begin stra db 254 strn db ? strr db 254 dup(?) arr db 254 dup(?) arrn db 254 dup(0) begin:push cs pop ds push cs...
汇编语言编程。。统计字符串的字符个数求助data segment LAD db 'abcdefghijklmn#' MUN dw 0 data ends stack segment stack db 256 dup(?) stack ends code segment assume cs:code, ds:data, ss:stack start: mov...
汇编循环语句loop统计某字符在字符串内的个数Private Sub Command1_Click() n = 0 m = 0 a = InputBox("请输入字符串:") b = InputBox("请输入第一个字母") c = InputBox("请输入第二个字母") For i = 1 To Len(a) If Mid(a, i, 1)...