UC知道两道VB题
来源：百度知道 编辑：UC知道 时间：2024/06/24 13:11:54
1.求s=1-1/2+1/3-1/4+…1/100的值。结果用MsgBox()函数显示。
2. 窗体上有一个文本框Textbox1，有一个命令按钮Button1，在文本框Textbox1 中输入字符，单击命令按钮Button1，可以统计Textbox1中英文字母、数字、空格的个数。试编写程序。结果用MsgBox()函数显示。
2. 窗体上有一个文本框Textbox1，有一个命令按钮Button1，在文本框Textbox1 中输入字符，单击命令按钮Button1，可以统计Textbox1中英文字母、数字、空格的个数。试编写程序。结果用MsgBox()函数显示。
1、用一个循环就可以
sub test()
dim i as integer
dim s as single
for i=1 to 100
s=s+(-1)^(i+1)*(1/i)
next i
msgbox s,vbokonly,"结果"
end sub
2、也是一个循环
private sub button1_click()
dim s as string
dim l as integer
dim i as integer
dim v1,v2,v3,v4 as integer
s=textbox1.text
l=len(s)
dim a(l) as byte
for i=0 to l-1
a(i)=mid(s,i,1)
select case asc(i)
case 65-90
v1=v1+1
case 97-122
v2=v2+1
case 48-57
v3=v3+1
case 32
v4=v4+1
case else
end select
next i
msgbox v1,vbokonly,"大写字母个数"
msgbox v2,vbokonly,"小写字母个数"
msgbox v3,vbokonly,"数字个数"
msgbox v4,vbokonly,"空格个数"
end sub