新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以用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