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

一道vB题求解答

你给了 200 分,可能是真心求解埃但问题是你的图的确是难以看清! 现在考验你是不是真的 "求解答急急急":把它打出来!大家努力给你解答。

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...

A.softwre and hareware Private Sub Command1_Click() a = "software and hardware" b = Len(a) c = Left(a, 8) MsgBox a, b, c End Sub

M(1)=M(1)+1 M(2)=0 M(2)=M(1)+1 M(2)=2 M(1)=M(2)+1 M(2)=2 M(2)=M(2)+2 M(2)=4

答案是A) 11 i先等于1 进入循环后I自加1,于是等于2 因为步长SETP为4,所以碰到一个NEXT,后要加上4,这时I为6 再次进入循环,I再加上1,这里为7 再次碰到NEXT,加上4,这时I为11 因为已经超过10的循环范围,所以I最终为11

Private Sub Form_Click() Dim i As Integer Dim a(10) As Integer For i = 1 To 10 a(i) = Rnd * 100 Next Call Sortnum(a, 10) For i = 1 To 10 Print a(i); Next Print Print "Max:" & MaxNum(a, 10) Print "Ave:" & AveNum(a, 10) End Sub F...

Private Sub Command1_Click() '求车号 Dim i Dim j Dim a For i = 0 To 9 For j = 0 To 9 If i j Then a = 0 a = i * 1000 + i * 100 + j * 10 + j a = Sqr(a) If a \ 1 - a = 0 Then Text1 = i * 1000 + i * 100 + j * 10 + j End If End If N...

先要搞清楚,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...

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

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