高手帮个忙！！ — 编程爱好者社区

主题：高手帮个忙！！

szj007 [专家分：0] 发布于 2008-04-17 21:51:00

首先，我是新人，问的问题也许很小白！但现在我是真的整不明白了！

怎么让用户输入一个值，既能打印到一个label上，又能添加到一个动态数组中去，这俩过程分开我都能做，个怎么也合不起来!

hl% = InputBox("请输入您配方由几种组分组成!", "组分数")
ReDim a(hl)
Dim i As Integer
Prompt$ = "请输入您所选中的组分的百分含量!!"
If i < hl Then
  a_i = InputBox(Prompt$, "组分的百分含量")
  Do While a_i < 0 Or a_i > 1
     MsgBox "您输入的百分含量错误,请重新输入!"
     a_i = InputBox(Prompt$, "组分的百分含量")
  Loop
  lblzufen.Caption = lblzufen.Caption & Chr(13) + Chr(10) & Space(2) & Cmbname.Text & Space(4) & a_i
Else
MsgBox "您输入的组分数超出了预期的设定!"
End If
For i% = 1 To hl
   a(i) = a_i
Next i%
[em10][em10]

本帖地址： http://bbs.pfan.cn/post/273398.html

回复列表（共4个回复）

沙发

zhanghanyn [专家分：220] 发布于 2008-04-18 16:55:00

在通用声明变量 Dim Count as Integer

这里->Count=0
hl% = InputBox("请输入您配方由几种组分组成!", "组分数")
ReDim a(hl)
Dim i As Integer
Prompt$ = "请输入您所选中的组分的百分含量!!"
If i < hl Then
  a_i = InputBox(Prompt$, "组分的百分含量")
  Do While a_i < 0 Or a_i > 1
     MsgBox "您输入的百分含量错误,请重新输入!"
     a_i = InputBox(Prompt$, "组分的百分含量")
  Loop
  lblzufen.Caption = lblzufen.Caption & Chr(13) + Chr(10) & Space(2) & Cmbname.Text & Space(4) & a_i
加在这里->a(Count)=a_i
加在这里->count=count+1
Else
MsgBox "您输入的组分数超出了预期的设定!"
End If

板凳

szj007 [专家分：0] 发布于 2008-04-19 09:51:00

我试了试，怎么程序老执行不到if后的else语句啊！这个我试了几次也不行啊！

3 楼

zhanghanyn [专家分：220] 发布于 2008-04-19 16:51:00

第一次输入的数大于hl就可以到else了`

4 楼

老大徒伤悲 [专家分：29120] 发布于 2008-04-23 19:53:00

dim 品种数 as integer,i As Integer,合计 as integer
品种数 = InputBox("请输入您配方由几种组分组成!", "组分数")
ReDim 百分比(品种数),名称(品种数)
for i=1 to 品种数
  名称(i)=inuputbox("请输入第" & i & "组分的名称" )
  do
     百分比（i)  = InputBox("请输入第" & i & "组分的百分含量!", "组分的百分含量")
     if 百分比（i) < 0 Or 百分比（i) > 100 then  MsgBox "您输入的百分含量错误,请重新输入!"
  Loop until 百分比（i) > 0 and 百分比（i) < 100
  标签=标签 & vbcrlf &
  合计=合计+百分比（i）
  if 合计 >100 then
     MsgBox "您输入的组分含量超过100%了!" & vbcrlf & "重来！"
     exit do
  End If
Next i

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：高手帮个忙！！

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：高手帮个忙！！

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）