Text1.Text = Text1.Text + CStr(a(i)) + "

相关推荐

• VB的：输入三个数X、Y、Z,按从小到大的顺序输出这三个数Private Sub Command1_Click()a = Text1.Text:b = Text2.Text:c = Text3.TextIf a > b Then m = a:n = bElse:m = b:n = aEnd IfIf n > c ThenLabel1.Caption = m > n > cElseIf m Label1.Caption = c > m > nElseLabel1.Caption = m > c > nEnd If为什么提示我说第一个else没有IF啊啊?不是有么.
• VB求助：求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数,n是一个由随机数产生的4～9（包括4、9）中的一个正整数,产生随机数需使用Randomize语句.例如,当a=2,n=5时,Sn=2+22+222+2222+22222表达式：Private Sub Command1_Click()Dim a As IntegerDim n As IntegerDim s As StringRandomizea = Int(Rnd() * 9) + 1n = Int(Rnd() * 6) + 4For i = 1 To n s = s + String(i, CStr(a)) If i n Then s = s + "+"NextPrint "当a=" & a & "时,n=" & n & "时, S=" & sEnd Sub问题：表达式中“ If i n Then s = s + "+" ”这句的意思和作用是什么?
• VB转换世界时间.求有源码的朋友 或高手用最快的速度实现如：美国时间 比中国时间晚15小时.也就是说如果现在北京时间是：4月5号 04:36:52 那么美国时间将是：4月4号 13:37:22就是将北京时间减去15小时的.求高手帮助一段VB代码最简单的思路但无法动手：timer2:text1.text = nowtext2.text = text1 - 15
• vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c Label3.Caption = "无解"Elsen = -b + (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * am = -b - (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * aLabel3.Caption = "" + CStr(n) + " " + CStr(m) + ""End IfEnd Sub请问 哪错了?
• a = Mid(Text1.Text,i,1)表示什么啊?
• VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.text=text1.text+chr(13)+chr(10)
• dim strsql as stringIf Text1.Text "" ThenAdodc1.Recordset.CloseIf Val(Text1.Text) 0 Thenstrsql = "select * from name where name=" & Trim(Text1.Text) 'Trim去掉前后空格Elsestrsql = "select * from name where name='" & Trim(Text1.Text) & "'"End IfAdodc1.CommandType = adCmdTextAdodc1.Recordset.Open strsqlSet DataGrid1.DataSource = Adodc1ElseSet DataGrid1.DataSource = NothingEnd If以上查找字母或中文都不会报错,但查找的为数字就会报错”标准表达式中数据类型不匹配“
• Text1.Text = Text1.Text + CStr(a(i)) + "
• a(i) = Mid(Text1.Text,i,
• 在Vb环境下做柱形图 让shape的高度等于text里的数怎么写语句啊 shape.height=text1.text 类型不符
• daily at this we shall speak to you about America and the war
• 足球比赛规则：胜一场积3分,平一场积1分,负一场积0分,某队已经进行了14轮比赛,联赛积分高于20分,那么该队至少胜了多少场、