这个编法没错 只不过 满足的有0个 你被表面给迷惑了 哈哈 (不信自己试试看吧)
3469-3769-6180
dim i as integerdim sum as integeri = 1方法1do while i 100sum = sum + ii = i + 1loop方法3dosum = sum + i。
^所谓的水仙花数(梅花数)是指在三位整数(100到999之间)中,百位数、十位数、个位数的立方和等于它本身,如153=1^3+5^3+3^3。程序代码如下:PrivateSub。
c 代码窗口没听说过对象窗口喔~对象浏览器:列出工程中有效的对象,并提供在编码中漫游的快速方法。 可以使用“对象浏览器”浏览在 Visual Basic 中的对象和其。
用颜色常数:Form1.BackColor=vbRed'红Form1.BackColor=vbBlue'蓝Form1.BackColor=vbWhite'白用QBColor函数。
这个代码中Private Sub Command1_Click()Dim n1, n2 As Integern1 = Val(Text1.Text)n1 = Val(Text2.Text)Label4。
程序代码如下:最大公约数(zdgys)最小公倍数(zxgbs) a=inputbox("a") b=inoutbox("b") if a>b then t。
关于这个问题,Excel中可以使用VBA(Visual Basic for Applications)编程,以下是一些常见的VBA操作: 1. 打开VBA编辑器:按下“Alt+F11”或者在开发者选项。
1、VB写的代码为了方便下次调用或者修改,可以对其进行保存,那么该如何保存:首先打开VB,写简单写一行代码。 2、点击文件,选择保存Form1。 3、然后再点击文件。
回顶部 |