vb中“输入1至9中任意一个数”怎么写代码

dim x as integer

x = Val(inputbox(请输入一个1至9中的任意一个数！))

这样？

me.text1.text=1

支气管炎是指气管,支气管粘膜及其周围组织的慢性非特异性炎症.临床上以长期咳嗽,咳痰或伴有喘息及反复发作为特征.积极控制感染：在急性期,遵照医嘱,选择有效的抗菌药物治疗.常用药物有：复方磺胺甲醛异恶挫,强力毒素,红霉素,青霉素等.治疗无效时,也可以选用病人未用过或少用的药物,如麦迪霉素,螺旋霉素,先锋霉素等.在急性感染控制后,及时停用抗菌药物,以免长期应用引起副作用。

病情分析：

你好，如果确诊是患了支气管炎，一般是可看看中医的，中医中药治疗支气管炎具有独到之处，常用的方剂是小青龙汤和麻杏石甘汤等。

指导意见：

中成药通宣理肺丸、气管炎丸也是可考虑吃吃看的。

医生询问：

气管炎是可以导致肺气肿甚至是肺心病的情况中医的治疗方法是不错的，可以尽早的选择正规的中医治疗，比如外埋内疏治疗，中药口服、传统中医介入等，激发自身的免疫力，得到最佳的治疗效果。