←предыдущая следующая→
1 2
For i = 1 To n
For j = 1 To n
txtResult.Text = txtResult.Text & Str(b(i, j)) & " "
Next j
txtResult.Text = txtResult.Text & vbCrLf
Next i
cmdPrint.Enabled = True
cmdSave.Enabled = True
End Sub
Private Sub cmdSave_Click()
Open App.Path & "Result.txt" For Output As #1
Print #1, "Задание №10" & vbCrLf & vbCrLf
Print #1, "Исходная матрица:" & vbCrLf
Print #1, txtOriginal.Text & vbCrLf
Print #1, "Полученная матрица:" & vbCrLf
Print #1, txtResult.Text
Close #1
End Sub
Private Sub txtN_Change()
If Val(txtN.Text) > 9 Or Val(txtN.Text) = 0 Then
cmdRun.Enabled = False
Else
cmdRun.Enabled = True
End If
End Sub
Private Sub txtN_KeyPress(KeyAscii As Integer)
If KeyAscii < 26 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Внешний вид приложения:
Результат работы приложения:
←предыдущая следующая→
1 2
|
|