VB数字介于

冒泡法再问：我是新手，能发哈代码不？再答：你说的东西和语言无关，是算法思想你百度下冒泡法在领悟下里面的意思，把它写成vb的形式代码不写的，我知道你肯定是要交作业，这样学习可不行的

functionhaha(strasstring)asstringfori=1tolen(str)ifnotisnumeric(mid(str,i,1))thena=a&mid(str,i,1)end

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

Fori=1To1000s=Str(Sqr(i))IfInStr(s,".")=0ThenForj=1ToLen(s)s1=Mid(s,j,1)Fork=j+1ToLen(s)Ifs1=Mid(s,k

PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3

PrivateSubTimer1_Timer()label1.caption="今天是"&Format(Now(),"yyyy年m月d日")&WeekdayName(Weekday(Now(),vbS

'将Text2.MultiLine=TruePrivateSubCommand2_Click()DimsAsString,s2AsString,s3AsStringDimiAsInteger,kAsI

看1-99里面含有2,7,8的：1-9,3个10-19,3个20-29,9个……90-99,3个所以1-99里面含有2,7,8的一共有10*3+3*7=51个再看1-999里面：1-99,51个100

如果是输出时的话,可以假设字串是strMe.PrintFormat(str,"#.0")如果是想直接处理数据,先乘以10取整再除以10就可以了i=Int(i*10)/10.0

Private Sub Command1_Click() Dim i As Integer, j As Int

Accordingtothefigureabove,theamountrangesfrom0.00to0.10.

x="0123456"ifleft(x,1)="0"thenmsgbox"is0"

privatesubcommand1_click()dima%,b%,c%a=val(text1)b=val(text2)c=Int(Rnd*(a-b+1)+b)text3=cEndsu

你是指ASCII码吧?这里有：再问：好像不是啊我记得“a”“b”“c”…………都是100以内连续的大写完是小写"A""B""C"..."Z""a""b""c""d"…………"z"其实这个问题应该很低级

x = 4321d = x \ 1000 '千位c = x \ 100 

很高兴为您解答!用两个IF嵌套,或许能好理解一些.=IF(SUM(A1:AA1)>=10,IF(SUM(A1:AA1)

Dim n%, st$ 'st为控制所显示字符或数字变量n = InputBox("请输入数字菱形行数,必须为奇数",&n

日期型变量或常量可以用一个双精度浮点数表示,其中整数部分表示从1899-12-30到该时间的天数（1899-12-30以前的日期则用负数表示）,小数部分则是从午夜起到该时间所经过的秒数占全天时间的比例

Subform_click()Dimi(10)Forn=1To10i(n)=Int(Rnd*30+20)Nextmaxnum=20Forn=1To10Ifi(n)>maxnumThenmaxnum=i

OptionExplicitPrivateStoredValueAsDoublePrivateConstopNone=0PrivateConstopAdd=1PrivateConstopSubtrac