a=0for i=1 to 10 h=1 for j=1 to i h=h*j next ja=a+hnext i'a就是结果
不知道你要求多少个数这里定5个吧!Option Base 1Private Sub Form_Click()Dim b As IntegerDim a(5) As IntegerFor i = 1 T。
dim s as long,n as integerFor n=1 to 30000 if s +n >=30000 Then Exit For s=s+nNextMsgbox "最大。
这个问题需要编写一个程序窗体,在窗体上添加一个文本框用于显示结果,还需要一个按钮用于触发求和操作。在按钮的点击事件中,使用一个循环结构来遍历1到100的数。
for i=2 to 88sum=sum+inextprint sum
将下列代码放入某个事件过程里dim i as integerdim s as currencyfor i =0 to combo1.listcount - 1s=s+combo1.list(i)nex。
Private Function IsPrime(ByRef n As Integer) As Boolean '此函数用于判断一个数是否素数Dim j As Integer IsPrime 。
’试一下 Private Sub Command1_Click()Dim t,n,mm = InputBox("输入一个正整数:",,10)If IsNumeric(m) Then。
m... 以此类推,从右向左数,第n位就是2的n-1次幂。同理的,对于一个m进制下的数,第n为代表的就是m的n-1次幂。 对于二进制向10进制转换,每一位的数值乘以它对应。
private sub command1_click()dim sum as integerdim i as integersum=0for i = 1 to 50 if i mod 3 =0 the。
回顶部 |