从品牌网站建设到网络营销策划,从策略到执行的一站式服务
可以用redim,清空原数组内容后重新定义大小:
成都创新互联公司网站建设公司一直秉承“诚信做人,踏实做事”的原则,不欺瞒客户,是我们最起码的底线! 以服务为基础,以质量求生存,以技术求发展,成交一个客户多一个朋友!专注中小微企业官网定制,成都网站建设、网站制作,塑造企业网络形象打造互联网企业效应。
ReDim Examples(4)
Examples(0) = "a"
Examples(1) = "b"
Examples(2) = "c"
Examples(3) = "d"
Examples(4) = "e"
赋值就是把复选框填充1-100的数据吧,可以循环添加
i = 1
for i to 100
复选框1.add i
复选框2.add i
复选框3.add i
next i
然后在按钮的点击事件里填写计算乘积的方法
先判断是否选中
if 复选框1.Text = "" then exit sub
……
在计算
text1.text = val(复选框1.text) * val(复选框2.text) * val(复选框3.text)
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
双重循环,赋值和读取一样
'两个公共变量Public a '存放 M8|10 ……的对应关系Public radius1 As Variant 'LZ需要的变量Private Sub ComboBox1_Change() '组合框改变时的动作Dim iStr As StringiStr = a(ComboBox1.ListIndex)TextBox1.Value = Right(iStr, Len(iStr) - InStr(iStr, "|"))radius1 = TextBox1.ValueMsgBox radius1End SubPrivate Sub UserForm_Initialize() '窗体载入时的动作a = Split("M8|10,M16|20,M24|30", ",")If ComboBox1.ListCount UBound(a) + 1 Then For i = LBound(a) To UBound(a) ComboBox1.AddItem Left(a(i), InStr(a(i), "|") - 1) Next ComboBox1.ListIndex = -1End IfEnd Sub
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图