作业帮vb一些编程题输入一个字符串,统计其中出现"a"和"c"的个数,如输入"
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/06 02:19:25
vb一些编程题
输入一个字符串,统计其中出现"a"和"c"的个数,如输入"abcaabbc",则"a"的个数为3,"c"的个数为2.
输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数.如：8的所有因子为1、2、4,因子个数为3个.
实现对分数约分的功能.输入m、n,求约分后的分子和分母分别为多少
输入一个（0~255）之间的十进制正整数,将其转换为二进制,如：输入7转换为00000111
麻烦大家了,
帮我做第一个就好了,其它的ok了
输入一个字符串,统计其中出现"a"和"c"的个数,如输入"abcaabbc",则"a"的个数为3,"c"的个数为2.
输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数.如：8的所有因子为1、2、4,因子个数为3个.
实现对分数约分的功能.输入m、n,求约分后的分子和分母分别为多少
输入一个（0~255）之间的十进制正整数,将其转换为二进制,如：输入7转换为00000111
麻烦大家了,
帮我做第一个就好了,其它的ok了
dim A(1 to 26) as integer
dim i as integer,j as integer,c as string*1,t as integer
t=len(text1)
for i=1 to t
c=ucase(mid(text1,i,1))
if c>="A" and c0 then
print chr(j+64);"的个数为";a(j),
end if
next j
26个字母都能统计的.
dim i as integer,j as integer,c as string*1,t as integer
t=len(text1)
for i=1 to t
c=ucase(mid(text1,i,1))
if c>="A" and c0 then
print chr(j+64);"的个数为";a(j),
end if
next j
26个字母都能统计的.