Question

这道VB编程题怎么做？

Answer 1

找人做题应该悬赏点分。

Private Sub Form_Click()
    Dim a(50) As Integer
    Dim max As Integer
    Dim min As Integer
    For i = 1 To 50
        a(i) = Int(Rnd * 90 + 10)
        Print a(i) & " ";
        If i Mod 10 = 0 Then Print
        If i = 1 Then
            max = a(i)
            min = a(i)
        Else
            If a(i) > max Then max = a(i)
            If a(i) < min Then min = a(i)
            
        End If
    Next i
    Print
    Print "最大值是" & max
    Print "最小值是" & min
End Sub

追问

第一次悬赏了，没人回答呀

你帮我做一下

上次我按你给我的方法，可以的

追答

回答了已经

追问

没有写程序呀

你帮我一下嘛，可以吗？

追答

Private Sub Form_Click()
    Dim a(50) As Integer
    Dim max As Integer
    Dim min As Integer
    For i = 1 To 50
        a(i) = Int(Rnd * 90 + 10)
        Print a(i) & " ";
        If i Mod 10 = 0 Then Print
        If i = 1 Then
            max = a(i)
            min = a(i)
        Else
            If a(i) > max Then max = a(i)
            If a(i) < min Then min = a(i)
             
        End If
    Next i
    Print
    Print "最大值是" & max
    Print "最小值是" & min
End Sub

 代码不行么？要程序留下邮箱 这里发不 了

追问

怎么写入文件呢？

怎么建立一个文件！再二进制访问？

追答

Private Sub Command1_Click()
    Dim i As Integer, n As Integer, a(50) As Integer
    Open App.Path & "\1122.txt" For Output As #1
    Randomize
    For i = 1 To 50
        a(i) = Int(Rnd * 90 + 10)
        Print #1, a(i) & " ";
    Next i
    Close #1
    MsgBox "写入成功"
End Sub

Private Sub Command2_Click()
    Dim s As String
    Dim max As Integer
    Dim min As Integer
   Dim filename As String
   filename = App.Path & "\1122.txt"
Open filename For Input As #1
Do While Not EOF(1)
Line Input #1, s
Loop
Close #1
Dim p() As String
p = Split(s, " ")
For i = 0 To UBound(p)
    Print p(i) & " ";
    If (i + 1) Mod 10 = 0 Then Print
    If i = 1 Then
            max = p(i)
            min = p(i)
        Else
            If Val(p(i)) > max Then max = Val(p(i))
            If Val(p(i)) < min Then min = Val(p(i))
            
       End If
Next i
Print
    Print "最大值是" & max
    Print "最小值是" & min
End Sub

追问

程序有错呀

运行，每次最小值都是0，怎么回事呢？

Answer 2

x=int(rnd*91)+10

追问

具体怎么做呢

怎么建立一个文件再二进制访问

追答

我现在没时间。

追问

你可以口述一下吗

追答

Private Sub Command1_Click()
Dim x As Byte
Open "d:\0.dat" For Binary As #1
Print "写到文件中的数据："
For i = 1 To 50
x = Int(Rnd * 91) + 10
Put #1, , x
Print x;
If i Mod 10 = 0 Then Print
Next i
Print
Max = 0
Min = 200
Print "从文件读取中的数据："
Seek #1, 1
For i = 1 To 50
x = Int(Rnd * 91) + 10
Get #1, , x
Print x;
If i Mod 10 = 0 Then Print
If Max x Then Min = x
Next i
Print: Print "Max="; Max, "Min="; Min
Close #1
End Sub

Answer 3

恭喜发财 大吉大利

追问

会做吗？