InputBox(请输入一个正整数)

PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingle,zAsSinglea=InputBox("输入a的值","")b=InputBox("输入

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

#includeintmain(){intn;printf("请输入一个整数:");scanf("%d",&n);if(n>0){if(n%2)printf("正奇数\n");elseprintf("

PrivateSubcommand1_click()Dimint1AsIntegerint1=InputBox("输入一个整数")Ifint1Mod15=0ThenMsgBox"此数能同时被3和5整除

pleaseinputa5-digitnumbe

printval(a)+val(b)+val(c)

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

#include#includevoidout(intn){inti,j,k;for(i=0;i

/>privatesubcommand1_click()dima(1to10)asdoubledimminasdoublefori=1to10a(i)=val(inputbox("请输入数组元素值："

PrivateSubform_load()a=InputBox("","输入一个数","")IfIsNumeric(a)ThenIfaMod15=0ThenMsgBoxa&"能被3和5同时整除"Els

InstallbytypingapathPleaseenterapathtotheinstallation

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

Dim a As Singlea = Val(InputBox("输入摄氏"))a= a * 9/5

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

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

InputBox函数在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的String.语法InputBox(prompt[,title][,default][,xpos][,yp

SubCalcTriangle()DimgetstrAsStringDimarr(1To3)AsDoubleDimpAsDouble,sAsDoubleDimiAsIntegerWhile(True)

n=val(inputbox("",,0))首先就是没有提示其次是没有输入框的标题文字第三是默认输入值是0最后,如果输入15那么意思是n就是15.

123123