VB题单击窗体,输入所有的三位数,他们满足

111

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

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

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

不是已经有人问过了吗?这里：根据3512174的顺序自己敲一下代码就是了.

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

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

生成按钮代码：PrivateSubCommand1_Click()RandomizeFori=1To100t=Int(Rnd()*900+100)IftMod2=0ThenList1.AddItemt

PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerDimsAsIntegers=0Fori=10To30IfiMod2=0ThenPrinti;EndIf

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

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

DimaAsIntegera=InputBox("输入一个数")IfaMod2=0ThenMsgBox("偶数")ElseMsgBox("奇数")EndIf

Private Sub Form_Click()    Randomize    Dim 

PrivateSubForm_Click()DimsumAsLongFori=1To100sum=sum+i*iNextMsgBoxsumEndSu

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

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

PrivateSubCommand1_Click()IfText2.Text=0ThenExitSubIfText1.Text/Text2.TextEndSu

PrivateSubCommand1_Click()Text2.Text=""Fori=1ToVal(Text1.Text)Text2.Text=Text2.Text&Int(Rnd*100)&""N