www.ndwl.net > VB试题求解

VB试题求解

ucase mid函数第一项是以0计算的所以第二题应该是defg

1.下列程序运行后,输出结果为( A )。 b = 1 Do While b < 40 b = b * (b + 1) Loop Print b A. 42 B. 39 C. 6 D. 1 2.以下叙述中错误的是( C )。 A. 一个工程中只能有一个Sub Main过程 B. 窗体的Show方法的作用是将指定的窗体载入内存并显...

以商灭周兴为历史背景,武王伐纣为时空线索,从女娲降香开书,到姜子牙封三百六十五位正神结束。哪吒闹海、姜子牙下山、文王访贤、三抢封神榜、众仙斗阵斗法等情节,展现了古人丰富的想象力:腾云驾雾、呼风唤雨、搬山移海、撒豆成兵,还有水遁...

PrivateSubForm_Click()DimiAsDouble,n,mn=Val(InputBox("请输入一个正整数","请求数据"))Ifn0ThenForm=1Toni=i+1/mNextmMsgBox"“1+1/2+1/3.+1/n”的最终结果(n="&n&")="&Format(i,"0.00000000")El

新建文本文件,复制下面代码,保存后,修改文件名为 工程1.vbp Type=Exe Form=Form1.frm Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation Object={F9043C88-F6F2-101A-A3C9-08002B2...

'传址的方式传递参数Sub subp(b() As Integer)For i = 1 To 4 b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8'通过传址形式将a数组传到subp函数subp a()For i = 1 To 4 '因为...

s=text1.text r=r-1 s=mid(s,p+1)

if text1.text < text2.text and text1.text

你的字很漂亮! 第一次单击Command1: a = 28, b = 36 r = a mod b = 28 mod 36 = 28 这个应该没有任何问题,r 就是整除之后的余数。 那么进入Do循环:a = b,那么a变成了36,b = r,那么b变成了28,r = a mod b = 36 mod 28 = 8 因为r = 80,所...

这是发生递归调用的程序: 在private sub command1_click()里的fun(x),将x=6作为参数,调用自定义过程fun,进入fun; 执行 if x mod 2=0 then fun(x/2) '应该是0,不是字母o吧? 由于x = 6,所以满足x mod 2=0,执行fun(x/2),用3调用自定义...

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com