www.ndwl.net > 一道VB求详解

一道VB求详解

Private Sub Command1_Click() Dim i As Integer, k As Integer For i = 1 To 200 If fsqr1(i) Then k = k + 1 List1.AddItem i End If Next i Text1.Text = kEnd SubPrivate Function fsqr1(x As Integer) As Boolean Dim flag As Boolean, m A...

For I = 1 to 4 K = I + 1 Next I k=5 For I = 1 to 7 K = k + 1 Next I 5+7=12 外循环循环多少次,第一个内循环都会让k=5

VB里面没有显式声明类型的都是变体类型。 A=Array(11,12,13,14,15) ,虽然里面都是数字,但这样的定义是一个变体类型数组,数组元素即可以是数字,也可以是字符串。 选项A、没有类型声明是变体类型,等同于选项C。选项B声明了类型是数组,但是没...

首先分析在程序启动部分,绘制钟表表面的刻度;见图1: 见上图所示: 圆心坐标为:O(x0,y0) 圆半径为:R 分析绘制钟面的刻度程序; For k = 0 To 359 Step 30 x = radius * Cos(k * 3.14159 / 180) + x0 y = y0 - radius * Sin(k * 3.14159 / 18...

我是程序员,我没读懂题,惭愧。。。。 能不能说一下题意。。。用户在文本框Text1中输入圆的半径,单击“计算”按钮,在列表框List1中输出包含边长为1的砖块数。是指这个圆里最多能放下多少个边长为1的正方形吗? 这属于数学题,怎么算,感觉不好...

条案是A。

答案是A。 一个工程可以从窗体或Sub过程启动。 除窗体外,Picture等控件也可以做为容器。 Unload Me只是卸载当前窗体,而End是结束整个程序。

写个题就是考察数组的,难度几乎没有,第一个for循环是初始化数组的,接下来的if是判断

lbound 求数组指定维度的最小下标ubound 最大下标题中2个函数都是求 第二维度的 所以答案是b如果是lbound(a,1)那么就是1 ubound(a,1)=100

第一次点击,因为没有赋值,x默认是0,x = x + 1的结果是1,进入CALL过程后,x默认也是0,于是结果就是1,调用结束后显示出来就是:1。 第二次点击时,x默认是1,x = x + 1的结果是2,进入CALL过程后,x默认是1,于是结果就是2+1,调用结束后显...

网站地图

All rights reserved Powered by www.ndwl.net

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