在窗体上输入既能被3同时又能被5整除的所有的3的倍数

发到你邮箱

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

$num=array('9','21','12','55','100');foreach($sumas$s){if($s%3==0||$s%7==0){echo$s;}}

有两个问题.1,dimaas整形'这句话里怎么"整型"都来了,要知道,VB不是我们中国的.所以要把他翻译成为integer.2,a=text1.text'你想要把text1的文本赋值给a变量,但是te

因为A为integer类型,那么A=X+Y很明白,就是把X+Y的值赋给变量A.其实,Print后面是一条执行语句,所以,直接简化为PaintA因为A在paint之前赋值为X+Y了,所以,Paint的结

程序运行后,显示232.所以应选择A本题的主要考点是传值与传址.子过程proc（）中,n默认的是传址格式,即x的地址赋予n后,n变为12,在子过程中n运算后值为2,过程结束后,将n的地址再传回x,故x

for(inti=101;i

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

intnum=0;//总数for(inti=101;i{lbl2.Text=lbl2.Text+i.ToString()+",";//显示所有奇数num=num+i;i=i+2;}lbl1.Text=

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

#include"stdio.h"voidmain(){inta[10];inti=0;for(i=0;i{scanf("%d",&a[i]);}for(i=0;i{if(a[i

PrivateSubCommand1_Click()a=InputBox("请输入数字","提示")b=InputBox("请输入数字","提示")Print"和："&Val(a)+Val(b)Pri

PrivateSubCommand1_Click()Dima()AsInteger,i,j,m,nAsIntegerPrint"产生100个100～300之间的整数"RandomizeFori=1To

Randomr=newRandom();//随机函数对象Listrs=newList();//存放能被3整除的数组intnum=0;for(inti=0;i{num=r.Next(100,300);/

PrivateSubCommand1_Click()Dimi,j,kFori=101To200Step2'每次加二,确保奇树IfiMod3>0Then'不能被3整除j=j&Str(i)&","'要打印

PrivateSubForm_Click()s=0Fori=1To100s=s+iNextiPrint"1+2+...+100=";sEndSu

main(){ int i,sum;            

PrivateSubCommand1_Click()DimiAsIntegerText1.Text=""IfCheck1.Value<>0AndCheck2.Value<>0T