VB用列表框自动循环数字

VB用label与列表框同步循环显示数字~

Private Sub Command1_Click()
If Command1.Caption = "kaishi" Then
Command1.Caption = "tingzhi"
Else
Command1.Caption = "kaishi"
End If
Do While Command1.Caption = "tingzhi"
count1 = count1 + 1
List1.AddItem (count1)
Label1.Caption = count1
DoEvents
Loop
End Sub

不知道你的排列是怎么搞得，所以只添加了“删除选中项目”按钮和功能。并将原来的p1\p2中写list的内容剥离出来（模块化，是很重要的）。
代码如下：
Dim 内容() As String

Private Sub Command1_Click()
ReDim 内容(0)
Dim a0%(), a1%(), a2%(), x%, y$
y = InputBox("请输入a0数组元素个数", "输入数据", "5")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a0(1 To Val(y))
For x = 1 To UBound(a0)
y = InputBox("请输入a0数组第" & x & "个元素", "输入数据", "1")
If Val(y) = 0 Then Exit Sub
a0(x) = Val(y)
Next
y = InputBox("请输入a1数组元素个数", "输入数据", "4")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a1(1 To Val(y))
For x = 1 To UBound(a1)
y = InputBox("请输入a1数组第" & x & "个元素", "输入数据", "2")
If Val(y) = 0 Then Exit Sub
a1(x) = Val(y)
Next
Call P1(a0(), a1(), List1)
Call P2(a0(), a1(), List1)
End Sub

Private Sub P1(aa%(), bb%(), L As ListBox)
Dim i&, a%, b%, c%, d%, e%, m%, n%, z%, t%(4), s$(4)
For a = 1 To UBound(aa) - 2
For b = a + 1 To UBound(aa) - 1
For c = b + 1 To UBound(aa)
For d = 1 To UBound(bb) - 1
For e = d + 1 To UBound(bb)
ReDim Preserve 内容(UBound(内容) + 1)
t(0) = aa(a): t(1) = aa(b): t(2) = aa(c): t(3) = bb(d): t(4) = bb(e)
For m = 0 To 4
For n = m + 1 To 4
If t(n) < t(m) Then z = t(m): t(m) = t(n): t(n) = z
Next
s(m) = Format(t(m), "00")
Next
内容(UBound(内容)) = s(0) & " " & s(1) & " " & s(2) & " " & s(3) & " " & s(4)
Next e, d, c, b, a
End Sub

Private Sub P2(aa%(), bb%(), L As ListBox)
Dim i&, a%, b%, c%, d%, e%, m%, n%, z%, t%(4), s$(4)
For a = 1 To UBound(aa) - 1
For b = a + 1 To UBound(aa)
For c = 1 To UBound(bb) - 2
For d = c + 1 To UBound(bb) - 1
For e = d + 1 To UBound(bb)
ReDim Preserve 内容(UBound(内容) + 1)
t(0) = aa(a): t(1) = aa(b): t(2) = bb(c): t(3) = bb(d): t(4) = bb(e)
For m = 0 To 4
For n = m + 1 To 4
If t(n) < t(m) Then z = t(m): t(m) = t(n): t(n) = z
Next
s(m) = Format(t(m), "00")
Next
内容(UBound(内容)) = s(0) & " " & s(1) & " " & s(2) & " " & s(3) & " " & s(4)
Next e, d, c, b, a
写列表
End Sub

Private Sub Command2_Click() '删除
For i = UBound(内容) To 1 Step -1
If List1.Selected(i - 1) Then
For j = i To UBound(内容) - 1
内容(j) = 内容(j + 1)
Next j
ReDim Preserve 内容(UBound(内容) - 1)
Exit For
End If
Next i
写列表
End Sub

Private Sub 写列表()
List1.Clear
For i = 1 To UBound(内容)
List1.AddItem Format(i, "0000") & Space(3) & 内容(i)
Next i
Label1.Caption = "一共有" & List1.ListCount & "种组合"
End Sub

Private Sub Form_Load()
Command1.Caption = "设置并筛选"
Command2.Caption = "删除选中项目"
End Sub

肾结石有很多病人平时是不痛的,只有当结石卡在局部（甚至嵌顿）或划伤局部组织时才有疼痛,还有就是一些结石比较稳定,呆在特定的位置不会引起局部不适,如果活动度高的话就会疼痛,或引起腰部酸痛等症状.
如果你的结石量很少,可以不管它,如果多或者较大,最好还是治疗一下,万一活动后卡在哪里,可是痛得要命的,
治疗小的结石用中药效果好,见效快（不建议用冲剂,因个人体质或结石性质不同,应选用不同的中药方剂,可是那些中成药冲剂,千人一方,不见得都合适,而且药力稍差,用久了会引起钾低等电解质紊乱）
结石较大或者位置特殊者,可以超声震碎,但也有很多是不能打的,要医生诊断,须要手术时可以选择手术,但最好不要轻易手术,手术后的瘢痕更容易产生结石

您好,你的情况建议去医院详细检查.肾结石一般在0.6以下的是药物排石,常用的药物如肾石通颗粒,排石颗粒等.大于0.6以上的是体外冲击波碎石,大于2.0以上的可以手术治疗.建议你到医院的泌尿外科进行检查,查明原因,及时治疗.

肾结石(Renalcalculus)多数位于肾盂肾盏内,肾实质结石少见.平片显示肾区有单个或多个圆形,卵圆形或钝三角形致密影,密度高而均匀.边缘多光滑,但也有不光滑呈桑椹状.在肾盂肾盏内的小结石可随体位而移动,较大结石其形态与所在腔道形态一致,可表现为典型的鹿角形或珊瑚形.有时结石可充满整个肾盂肾盏而类似肾盂造影的表现.侧位观,肾结石大多与脊柱相重迭.
肾盂造影可显示结石的确切部位,了解肾盂积水和肾功情况.造影还能发现少数平片不能发现的阴性结石,表现为边缘光滑的充盈缺损.阳性结石的密度与造影剂相近,易被遮盖,可造成漏诊或误诊,故诊断时一定要与平片对照.
本病属于中医“淋症”范畴,是以小便不爽,尿道刺痛为特点.常以小便排出砂石为主证,中医称之为“石淋”.
临床常分为实证和虚实夹杂证
1.实证型.症见尿中时夹砂石,小便艰涩,或排尿时突然中断,尿道窘迫疼痛,少腹拘急,或腰腹绞痛难忍,尿中带血,舌红,苔薄黄,脉弦或带数.治宜清热利湿,通淋排石,凉血止血.
2.虚实夹杂型.症见病久砂石不去,可伴见神疲乏力,精神萎顿,面白少华,舌淡红有齿痕,脉细弱无力,或伴腰腹隐隐作痛,腰膝酸软,手足心热,潮热,盗汗,神疲乏力,舌红少苔,脉象细数.治宜利尿排石通淋,或兼补益气血,或兼滋养阴液.若石淋日久不愈,也可转变为“劳淋”(小便淋沥不已,遇劳则发),应从劳淋论治.临床应辨明虚实,标本兼治.
肾结石的主要表现：
[编辑本段]
1.临床表现个别差异很大,决定于结石的病因,成份,大小,数目,位置,活动度,有无梗阻感染以及肾实质病理损害的程度.轻者可以完全没有症状,严重的可发生无尿,肾功能衰竭,中毒性休克以及死亡.
2.结石嵌顿在肾盂输尿管交界部或输尿管内下降时,可出现肾绞痛,为突然发作的阵发性刀割样疼痛,疼痛剧烈难忍,病人辗转不安,疼痛从腰部或侧腹部向下放射至膀胱区,外阴部及大腿内侧,有时有大汗,恶心呕吐.
3.由于结石对粘膜损伤较重,故常有肉眼血尿.疼痛和血尿常在病人活动较多时诱发.结石并发感染时,尿中出现脓细胞,有尿频,尿痛症状.
4.当继发急性肾盂肾炎或肾积脓时,可有发热,畏寒,寒颤等全身症状.双侧上尿路结石或肾结石完全梗阻时,可导致无尿.

肾结石症状及治疗
1,肾结石的分类
肾结石包括肾盂结石和肾盏结石.
2,肾结石的症状
血尿是常见症状之一,一般有显微镜下血尿.当结石在上尿路移动时,可引起尿路粘膜创伤而出现“洗肉水样”血尿;疼痛是另一常见症状,可有肾区胀痛,隐痛,钝痛和绞痛等,肾绞痛是突然发生的刀割样剧痛,患者呻吟不止,辗转不安,面色苍白,冷汗淋漓,并常伴有恶心,呕吐等胃肠道症状.
3,肾结石的治疗方法
①保守治疗
适合于直径小于0.6cm的结石,且没有尿路梗阻性病变的肾结石患者.采用大量饮水,中药排石,适度运动等方法帮助结石自行排除.伴绞痛者采用止痛,解痉等.合并感染者同时给予抗感染治疗.由于肾结石必须通过输尿管才能自行排出,所以其自行排出的可能性同输尿管结石.
②体外冲击波碎石（简称：ESWL）
A,原理：体外冲击波碎石,是利用体外冲击波聚焦后击碎体内的结石,使之随尿液排出体外.
B,优点：是不需麻醉,不需手术,不需住院,在门诊即可接受治疗.
C,缺点：是对于体积较大,较复杂的结石效果不佳,多次治疗后肾脏有损伤.由于体外冲击波击碎结石的同时对肾组织也产生损害作用,所以两次ESWL治疗间隔时间应大于一周.小于3次治疗的肾组织损害可以完全修复,治疗的次数越多对肾组织的损伤越大.因此总治疗次数最好掌握在3次以下.

你好,建议你手术取石或腔镜取石.
肾结石手术治疗的适应证：
　　①较大的肾盂肾盏结石(如直径大于3cm的结石或鹿角型结石)：这些结石也可采用腔内泌尿外科手术的方法和体外冲击波碎石的方法治疗
　　②肾盂肾盏内的多发结石：手术对一次性取尽结石比较有把握
　　③已有梗阻并造成肾功能损害的肾结石(如肾盏颈部有狭窄的肾盏结石有肾盂输尿管交界处狭窄肾盂结石有高位输尿管插入畸形的肾盂结石等)：对结石梗阻所致的无尿应及时手术解除梗阻挽救肾功能
　　④直径>2cm或表面粗糙的肾结石以及在某一部位停留时间过长估计已经形成粘连嵌顿的结石
　　⑤对肾脏有严重并发症全身情况不佳的患者：应选择手术治疗以缩短治疗周期
　　⑥一些多次体外冲击波碎石治疗未获成功或采用其他取石方法失败的患者
　　(2)主要的开放手术方法：对有适应证的患者应根据结石所在的部位结石的大小形态数量;肾脏输尿管的局部条件来决定手术治疗的方法
　　①肾盂切开取石术：适用于较大的肾盂结石或肾盂内的多发结石
　　②肾实质切开取石术：适用于鹿角形肾盂肾盏结石或肾盏内的多发结石经肾盂无法取出或不易取净的结石为了减少出血一般选择在肾实质最薄的部位或离结石最近的部位切开肾实质必要时还要采取暂时阻断肾脏血流局部降温的方法来减少出血
　　③肾部分切除术：对于局限于肾上盏或肾下盏的多发结石特别是肾盏颈部有狭窄时采用肾切开取石或肾盂切开取石都不能顺利取出结石时可行肾部分切除术将肾上极或肾下极连同结石一并切除
　
　　4.腔内泌尿外科手术
　　(1)经皮肾镜碎石术：经皮肾镜碎石术适用于体积较大的肾结石铸型结石肾下盏结石有远段尿路梗阻的结石以及其他治疗方法(特别是体外冲击波碎石)失败后的结石最适合经皮肾镜碎石的是身体健康较瘦直径大于2cm的单发结石位于轻度积水的肾盂中或扩张的肾盂内的结石对大的铸型结石采用经皮肾镜取石和体外冲击波碎石联合治疗效果也很满意
　　经皮肾镜碎石术的禁忌证包括：全身出血性倾向缺血性心脏疾患呼吸功能严重不全的患者过度肥胖腰肾距离超过20cm不便建立经皮肾通道者高位肾脏伴有脾大或肝大者肾结核未纠正的糖尿病高血压肾内或肾周急性感染者严重脊柱后凸畸形等患者均不能作经皮肾镜取石孤立肾患者不宜进行经皮肾镜碎石
　　①超声碎石是利用超声换能器的压电效应将电能转换成声能再沿着硬性探条传导至顶端当探条顶端接触到结石时超声波的高频震动能把结石碾磨成粉末状小碎片或将结石震裂
　　②液电碎石是通过放置在水中的电极将储存在电容器中的高压电能在瞬间释放出来使电能转变为力能直接将结石击碎液电的冲击力很强碎石效果好
　　③气压弹道碎石是模仿气锤的作用原理利用压缩气体产生的能量推动手柄内的子弹体在弹道内将能量传递到探杆探杆尖端与结石反复撞击将结石击碎
　　④近年来用于泌尿系统碎石的激光器为最新研制的钬激光(holmirm laser)钬激光是稀有元素钬产生的脉冲式激光波长2140nm恰好位于水的吸收范围峰值功率瞬间可达上千瓦钬激光可通过直径为320～550um低水含量的石英光导纤维发射激光通过内镜直抵结石将其粉碎为多数泌尿系结石首选的体内碎石方法与气压弹道碎石等体内碎石机相比较钬激光碎石术的有效率及安全性明显提高与传统的激光相比钬激光有明显优势钬激光除可用于碎石外还具有切割汽化软组织凝固止血功效对于时间长炎症反应重已经形成包裹的结石可以先汽化包裹的软组织再粉碎结石钬激光可以粉碎包括胱氨酸结石一水草酸钙结石在内的各种成分结石

你好!
请问检查结石有多大?通过体外冲击波碎石后,有没全排出来?除了要配合医生用药治疗外,还要注意饮食.肾病的保养和预防可以从以下几个方面入手：

　　一是控制饮食结构,避免酸性物质摄入过量,加剧酸性体质.饮食的酸碱平衡对于肾病的治疗及并发症的防治是非常重要的一个环节.饮食方面要多吃富含植物有机活性碱的食品,少吃肉类,多吃蔬菜.恰玛古富含植物有机活性碱,能迅速排除体内酸毒,澄清尿液酸毒,从而真正的保护肾脏.

　　二是,参加有氧运动,适当锻炼身体,在阳光下多做运动多出汗,可帮助排除体内多余的酸性物质,从而预防肾病的发生.

　　第三,保持良好的心情,不要有过大的心理压力,压力过重会导致酸性物质的沉积,影响代谢的正常进行.适当的调节心情和自身压力可以保持弱碱性体质,从而预防肾病的发生.

　　第四,生活要规律,生活习惯不规律的人,如彻夜唱卡拉OK,打麻将,夜不归宿等生活无规律,都会加重体质酸化.容易患糖尿病.应当养成良好的生活习惯,从而保持弱碱性体质,使肾病远离自己.

　　第五,远离烟,酒.烟,酒都是典型的酸性食品,毫无节制的抽烟喝酒,极易导致人体的酸化,使得肾病有机可乘.

　　第六,不要食用被污染的食物,如被污染的水,农作物,家禽鱼蛋等,要吃一些绿色有机食品,要防止病从口入.

　　多吃黑木耳可以化解肾结石

　　黑木耳对无意食下的难以消化的头发,谷壳,木渣,沙子,金属屑等异物具有溶解与烊化作用.

　　为防止和治疗各种异物造成的胃肠不适或病症,不妨常吃些黑木耳,尤其是从事理发,开矿,粉尘,锯木,修理,护路等作业的人员更应经常吃些黑木耳.

　　黑木耳对胆结石,肾结石,膀胱结石,粪石等内源性异物也有比较显著的化解功能.黑木耳所含的发酵和植物碱,具有促进消化道与泌尿道各种腺体分泌的特性,并协同这些分泌物催化结石,滑润管道,使结石排出.

　　同时,黑木耳还含有多种矿物质,能对各种结石产生强烈的化学反应,剥脱,分化,侵蚀结石,使结石缩小,排出.对于初发结石,保持每天吃1-2次黑木耳,疼痛,恶呕等症状可在2-4天内缓解,结石能在10天左右消失,对于较大较坚固的结石,其效果较差,但如长期食用黑木耳,亦可使有些人的结石逐渐变小变碎,排出体外.常吃黑木耳,还能预防血栓等症的发生. 

肾结石多发生在中壮年,男性多于女性.肾结石可能长期存在而无症状,特别是较大的结石.较小的结石活动范围大,当小结石进入肾盂输尿管连接部或输尿管时,引起输尿管剧烈的蠕动,以促使结石排出,于是出现绞痛和血尿.临床表现个别差异很大,决定于结石的病因,成份,大小,数目,位置,活动度,有无梗阻感染以及肾实质病理损害的程度.轻者可以完全没有症状,严重的可发生无尿,肾功能衰肾结石图片竭,中毒性休克以及死亡.该病治疗方式主要有以下几种.1.解痉,止痛,补液,抗炎,中药治疗.2.排石治疗：结石直径＜1.0厘米,肾功能好,无合并感染,病程短,能活动的患者选用.3.溶石治疗：服用药物,大量饮水,调节尿液ph值,控制饮食种类等方法.适合于尿酸盐及胱氨酸结石.4.体外震波碎石术.5.经皮肾镜取石,碎石术.6.手术治疗：根据不同病情选用肾盂切开取石术,肾实质切开取石术,肾部份切除术,肾切除术,肾造瘘术和体外肾切开取石术等.

您好：
肾结石的症状
正常人尿液中的一些溶解物质,因各种原因造成沉淀,潴留于肾内,并持续生长,便可形成结石.肾结石多发生在中壮年,男性多于女性.肾结石可能长期存在而无症状,特别是较大的结石.较小的结石活动范围大,当小结石进入肾盂输尿管连接部或输尿管时,引起输尿管剧烈的蠕动,以促使结石排出,于是出现绞痛和血尿.肾结石引起的疼痛可分为钝痛和绞痛.40％—50％的病人都有间隙发作的疼痛史.疼痛常位于腰部和腹部,多数呈阵发性,亦可为持续疼痛.有的疼痛可能仅表现为腰部酸胀不适,活动或劳动可促使疼痛发作或加重.肾结石绞痛呈严重刀割样痛,常突然发作,疼痛常放射至下腹部,腹股沟或股内侧,女性则放射至阴唇.肾绞痛发作时,患者呈急性病容,蜷曲在床,两手紧压腹部或腰部,甚至在床上翻滚,呻吟不已.发作常持续数小时,亦可数分钟即缓解.肾绞痛严重时,面色苍白,全身出冷汗,脉细而速,甚至血压下降,呈虚脱状态,同时伴有恶心,呕吐,腹胀便秘.绞痛发作时,尿量减少,绞痛缓解后,可有多尿现象.
肾结石的主要症状
血尿是肾结石的另一主要症状.疼痛时,往往伴发肉眼血尿或镜下血尿,以后者居多,大量肉眼血尿并不多见,体力活动后血尿可加重.肾结石患者尿中可排出沙石,特别在疼痛和血尿发作时,尿内混有沙粒或小结石.结石通过尿道时,发生阻塞或刺痛.肾结石的常见并发症是梗阻和感染,不少病例因尿路感染症状就医.梗阻则可引起肾积水,出现上腹部或腰部肿块.

你好
1 肾结石是临床上常见的疾病之一,可以由于很多的原因引起,主要是又患者平时不良的饮食习惯,导致结石的形成,比如草酸的摄入过多,脂肪摄入过多等,患者一般可以出现很多的临床的症状,当然这些临床症状主要与患者结石的大小,位置,数量, 活动度,有无梗阻淡然等因素有关,可以出现呕吐,恶心,便秘,有时会有肾绞痛,食欲不良,面色的苍白等症状,这些临床上的症状不仅仅给患者的身体带来了极大的痛苦,对于患者的心理也是带来了极大的痛苦,所以临床上对于这些症状一旦出现,患者就需要及时的提高警惕了,最好及时的到医院进行一个检查,了解疾病的原因.位置,程度,进展等情况,便于临床上准确的诊断和有效的进行治疗,避免疾病的进一步的发展或者恶化.
2 根据你的情况分析,可以进行进行手术治疗,一般手术的治疗主要是针对于药物溶石治疗的效果不是很明显或者治疗失败等情况下或者是感染性的肾结石.手术治疗是一个重要的措施,你可以考虑.
3 平时的护理 平时的护理主要是平时饮食的护理,饮食尽量清淡,避免刺激性饮食和生冷性的饮食,避免油腻性的饮食和油煎性的饮食,多休息,多喝水,营养充足.

。。。。。。。。给你做好了呀

Dim count1 As Double
Dim kaiguan As Boolean

Private Sub Command1_Click()
If command1.caption = "kaishi" Then
            kaiguan = True
        ElseIf command1.caption = "tingzhi" Then
            kaiguan = False
        End If
        If kaiguan = True Then
            For i = 1 To 100000
                count1 = count1 + 1
                List1.AddItem(count1)
                Label1.Caption = count1
                If kaiguan = False Then
                    Exit For
                End If
            Next
        End If
End Sub

Private Sub Form_Load()
Command1.Caption = "kaishi"
Timer1.Enabled = False
End Sub




Private Sub Timer1_Timer()
count1 = count1 + 1
List1.AddItem (count1)
Label1.Caption = count1
End Sub

看不明白要达到的目的

---

大同区18233238501： VB用label与列表框同步循环显示数字 - ？
郟媚联可： Private Sub Command1_Click() If Command1.Caption = ＂kaishi＂ Then Command1.Caption = ＂tingzhi＂ Else Command1.Caption = ＂kaishi＂ End If Do While Command1.Caption = ＂tingzhi＂ count1 = count1 + 1 List1.AddItem (count1) Label1.Caption = count1 DoEvents Loop End Sub

大同区18233238501： VB文本框中如何循环写入计算出的数据 - ？
郟媚联可： 循环体里面改 For i=1 To 10 Text1.Text = Text1.Text & vbcrlf & ＂这一次的i是＂ & cstr(i) Next i

大同区18233238501： VB实现循环数据操作 - ？
郟媚联可： 只要能用VB操作excel,这个问题基本不是问题.如果能操作excel,那么,假设是从A1开始,其他都类似,起始数值不同罢了.for i=1 to 4 cells(i,1)=i & i & i & i next i

大同区18233238501： VB 列表框的简单 - ？
郟媚联可： Dim i Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 Command2.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() On Error Resume Next Command2.Enabled = False ...

大同区18233238501： 请问怎以样用vb中的timer控制一个不断滚动和数呢?就是让数字从1到30不断的循环! - ？
郟媚联可： Private str As String Private Sub Timer1_Timer() For i = 1 To 30 str = str & i Next i Text1.Text = str End Sub 设置timer的interval的值

大同区18233238501： vb list自动循环选中 - ？
郟媚联可： 添加一个时钟控件timer1,interval设置为1000,添加列表控件List1 然后添加如下代码:Private Sub Timer1_Timer() Static i As Integer List1.ListIndex = i i = i + 1 If i >= List1.ListCount Then i = 0 End If End Sub

大同区18233238501： VB6.0程序:数据库中的数据在文本框中循环显示,怎么实现? - ？
郟媚联可： Private Sub Form_Load() Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False＂ Adodc1.RecordSource = ＂select name from 测试＂ Adodc1.Refresh Timer1.Interval = 10000 End...

大同区18233238501： vb中,产生一个指定范围的随机数,加到列表框中,是一个循环,求平均值,调出这一堆数 - ？
郟媚联可： 一个指定范围的随机数 ,A-B范围,则 rnd*(B-A)+A,如果是整数int(rnd*(B-A))+A 添加的列表框可以使用 List1.AddItem 求平均值 for i=0 to List1.ListCount-1 sum=sum+val(List1.List (List1.ListIndex)) next i ave=sum/List1.ListCount

大同区18233238501： VB怎么循环数 - ？
郟媚联可： Static i As Integer i = i + 1 Text2.Text = Text1.Text + i 已验证,运行正常

大同区18233238501： VB怎么用循环将1到10个数,显示text框子里面呀 - ？
郟媚联可： Private Sub Form_Click() For i = 1 To 10 For j = 1 To 1000000 '空循环用于延时 Next Text1.SelText = Str(i) '用 SelText 属性,增加文本框内容 Next End Sub