Сделать тест на visual basic 6.0.есть предложение сделать тест на 10 вопросов (вопросы я сам вношу в текстовом документе) и 4 варианта ответа. если сделаете, готов заплатить до 500 рублей.
Sub abcd() Dim n As Integer, a(1 To 8) As Integer Dim r As Range n = 8 imax = 1 Set r = Range(Cells(1, 1), Cells(2, 8)) r.ClearContents 'Очистка области r.Interior.Color = RGB(255, 255, 255) 'Очистка цвета заливки For i = 1 To n a(i) = Int(30 * Rnd) If a(i) > a(imax) Then imax = i Cells(1, i) = a(i) Next t = a(imax) Cells(1, imax).Interior.Color = RGB(204, 255, 255) Range(Cells(1, 1), Cells(1, imax - 1)).Interior.Color = RGB(255, 255, 153) For i = imax - 1 To 1 Step -1 a(i + 1) = a(i) Next a(1) = t For i = 1 To n Cells(2, i) = a(i) Next Cells(2, 1).Interior.Color = RGB(204, 255, 255) Range(Cells(2, 2), Cells(2, imax)).Interior.Color = RGB(255, 255, 153) End Sub
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию! begin var Z:=ArrRandom(ReadInteger('n='),1,99); Writeln('Массив Z'); Z.Println; Writeln('Массив X'); var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]); X.Println; Writeln('Массив Y'); var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]); Y.Println end.
Пример n= 8 Массив Z 74 17 35 3 33 84 48 39 Массив X 19.5 1.5 42 8.5 Массив Y 16 11.6666666666667 11 24.6666666666667
Sub abcd()
Dim n As Integer, a(1 To 8) As Integer
Dim r As Range
n = 8
imax = 1
Set r = Range(Cells(1, 1), Cells(2, 8))
r.ClearContents 'Очистка области
r.Interior.Color = RGB(255, 255, 255) 'Очистка цвета заливки
For i = 1 To n
a(i) = Int(30 * Rnd)
If a(i) > a(imax) Then imax = i
Cells(1, i) = a(i)
Next
t = a(imax)
Cells(1, imax).Interior.Color = RGB(204, 255, 255)
Range(Cells(1, 1), Cells(1, imax - 1)).Interior.Color = RGB(255, 255, 153)
For i = imax - 1 To 1 Step -1
a(i + 1) = a(i)
Next
a(1) = t
For i = 1 To n
Cells(2, i) = a(i)
Next
Cells(2, 1).Interior.Color = RGB(204, 255, 255)
Range(Cells(2, 2), Cells(2, imax)).Interior.Color = RGB(255, 255, 153)
End Sub