VB(事件)单击窗体(响应)计算1² 2² 3²

DimBlnAsBooleanPrivateSubCommand1_Click()Bln=TrueEndSubPrivateSubForm_click()DoDoEventsDebug.PrintNo

111

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

PrivateSubCommand1_Click()Me.Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Me.Label1.Caption="第一个数："

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

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

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

创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,

C记得采纳~~！

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEnd

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

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

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

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

4*6Mod16/4*(2+3)=4运算符优先级如下：（）>*/>Mod所以过程如下：ans=4*6Mod16/4*5=24Mod16/4*5=24Mod4*5=24Mod20=4

我是这样做的建立三个TEXT文本框（因为rgb函数的参数有三个）一个标签用来显示颜色第一个命令按钮是确定第二个是退出代码如下privatesubcommand1_click()r=val(text1.

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