vb数字直角三角形 1 121 1331
来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 15:19:04
冒泡法再问:我是新手,能发哈代码不?再答:你说的东西和语言无关,是算法思想你百度下冒泡法在领悟下里面的意思,把它写成vb的形式代码不写的,我知道你肯定是要交作业,这样学习可不行的
functionhaha(strasstring)asstringfori=1tolen(str)ifnotisnumeric(mid(str,i,1))thena=a&mid(str,i,1)end
解题思路:历史知识的积累解题过程:<三国演义>最终答案:略
PrivateSubTimer1_Timer()label1.caption="今天是"&Format(Now(),"yyyy年m月d日")&WeekdayName(Weekday(Now(),vbS
证明:在平面VAB内,过B做BD垂直于VA于D因为面VAB⊥面VAC所以BD垂直于面VAC所以垂直AC于BD又因为VB垂直于面ABC所以AC垂直VB所以AC面VAB所以AC垂直于VA所以△VAC是直角
'将Text2.MultiLine=TruePrivateSubCommand2_Click()DimsAsString,s2AsString,s3AsStringDimiAsInteger,kAsI
如果是输出时的话,可以假设字串是strMe.PrintFormat(str,"#.0")如果是想直接处理数据,先乘以10取整再除以10就可以了i=Int(i*10)/10.0
PrivateSubCommand1_Click()DimtmpStrAsString,tmpStr1AsStringDimmpStr2AsString,tmpStr3AsStringDimaAsIn
Private Sub Command1_Click() Dim i As Integer, j As Int
x="0123456"ifleft(x,1)="0"thenmsgbox"is0"
给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfI
你是指ASCII码吧?这里有:再问:好像不是啊我记得“a”“b”“c”…………都是100以内连续的大写完是小写"A""B""C"..."Z""a""b""c""d"…………"z"其实这个问题应该很低级
x = 4321d = x \ 1000 '千位c = x \ 100
添加一个“命令按钮控件”,将以下代码复制,运行即可OptionExplicitPrivateSubCommand1_Click()Dimnum1AsInteger,num2AsIntegerDimsu
dimiNumasinteger'定义为整数的两位数iNum=(iNum-int(iNum/10)*10)*10+int(iNum/10)'完成交换,并把交换后的值重新定义给iNum
Dim n%, st$ 'st为控制所显示字符或数字变量n = InputBox("请输入数字菱形行数,必须为奇数",&n
日期型变量或常量可以用一个双精度浮点数表示,其中整数部分表示从1899-12-30到该时间的天数(1899-12-30以前的日期则用负数表示),小数部分则是从午夜起到该时间所经过的秒数占全天时间的比例
OptionExplicitPrivateStoredValueAsDoublePrivateConstopNone=0PrivateConstopAdd=1PrivateConstopSubtrac
PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To13Forj=1ToiPrint"";NextjForj=iTo13-i+1PrintChr(56-i
Dima(14)AsIntegerDimb(10)AsIntegerPrivateSubCommand1_Click()Fori=1To14a(i)=Int(100*Rnd())‘这里产生100以内的