jwbf.net
当前位置:首页 >> 一道vB题求解答 >>

一道vB题求解答

s = Trim(Text1.Text) Do While Len(s) > 0 m = InStr(s, Space(1)) ‘找空格 If m = 0 Then ’没有空格,那么整个一个单词,结束循环 word_s = s s = "" Else ‘找到空格 word_s = Left(s, m - 1) '取空格以左的内容,分离出一个单词 s = Mid(s, m...

i=7,temp="",s2=s2&temp,s2="",返回上一层递归 此时,temp="f",运行s2=s2&temp,s2="f", 再运行上一层递归的s2=s2&temp ...

第一题 Private Sub Form_Click() Me.Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Me.Label1.Caption = "你双击了窗体" End Sub 第二题 Private Sub Command1_Click() If Me.Command1.Caption = "清屏" Then Me.Cls M...

第1空 I ^ 2 第2空 k + 1 第3空 -1

a是按值传递,b是按地址传递~ Fun1(x, x - 1)=Fun1(10,9)=(10-9)+(10-9+10)=12 Fun1(x, (Fun1(x, x - 1))=Fun1(10,12)=(10-12)+(10-12+10)=6 Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1)=Fun1(6,9)=(6-9)+(6-9+6)=0

先要搞清楚,I\5表示I整除以5 开始时x=5 I=1,x=x+I\5的结果为5 I=1+2=3,x=x+I\5仍为5 I=3+2=5,x=x+I\5=5+5\5=6 I=5+2=7,x=x+I\5=6+7\5=7 I=7+2=9,x=x+I\5=7+9\5=8 ... 后面的结果就是21了!!!

private sub command1_click() dim i as integer,n as integer,st as string dim n1 as integer,n2 as integer for i=1 to 10 n=int(rnd*90)+10 st=st & str(n) if n mod=0 then n1=n1+1 else n2=n2+1 endif next i text1.text=st text2.text=n1...

n 从始至终都是3 i 循环结束后是5 所以arr2(n)=arr2(3)=2*3+5=11 对吗? 祝你成功!

ABC

Shift 的设置如下: 1 按下 Shift 2 按下 Ctrl 4 按下 Alt 这几个是Mask值,因为有可能同时按下两个或三个键,所以需要用掩码分别检测。

网站首页 | 网站地图
All rights reserved Powered by www.jwbf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com