Question

VB这题要怎么做帮帮忙谢谢，最好有步骤，好的直接采纳！急求！

Answer 1

定义一个全局变量的数组：
dim a(10) as integer

随机产生10个两位的素数，素数各不相同：
Dim a(10), x As Integer
Dim str As String = ""
Dim di As Boolean = True
Dim n As Integer
Dim sd As
For i = 1 To 10
Do
Do
Randomize()
n = Int(Rnd() * 100 + 10)
Loop Until IsSushu(n)
If i > 1 Then
For x = 1 To i - 1
If a(x) = n Then
di = False
End If
Next
End If
Loop Until di = True
a(i) = n
'str = str & a(i) & " "

Next

随机数升序排序：
For i = 1 To 10
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
x = a(j + 1)
a(j + 1) = a(j)
a(j) = x
End If
Next j
Next i

For i = 1 To 10
str = str & a(i) & " "
Next

将升序的数组写入文件：
Dim file As New System.IO.StreamWriter("data1.txt")
file.WriteLine(str)
file.Close()

读取文件，并写入数组及降序排序：
Dim file As New System.IO.StreamReader("data1.txt")
Dim words As String = file.ReadToEnd()
file.Close()
Dim b() As String
Dim temp As Integer
Dim str1 As String
str1 = ""
b = Split(words, " ")
Dim c() As Integer

Dim l As Integer
l = UBound(b)
ReDim c(l)

For i = 1 To l
c(i) = Val(b(i - 1))
Next
For i = 1 To l
For j = 1 To l - i
If c(j) < c(j + 1) Then
temp = c(j + 1)
c(j + 1) = c(j)
c(j) = temp
End If
Next j
Next i
For i = 1 To l
str1 = str1 & c(i) & " "
Next
MsgBox(str1)

Answer 2

代码：

Dim t As Date, k As Integer

Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
  Timer2.Interval = 0
  Timer2.Enabled = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    Timer2.Interval = 500
    Timer2.Enabled = True
    t = CDate(Text1.Text)
  End If
End Sub

Private Sub Timer1_Timer()
  Label1.Caption = Time
End Sub

Private Sub Timer2_Timer()
  k = k + 1
  If k > 9 Then k = 0
  If Time >= t Then
    If k Mod 2 = 0 Then
      Label1.BackColor = vbRed
    Else
      Label1.BackColor = vbWhite
    End If
  End If
End Sub

运行效果：