Visual Basic 1)Укажите допустимые имена: а)Переменная б)G1G2H3 в)Dim г)D&G д)2_значное
10-11 класс
|
е)Нов.значение
ж)qaz wer
2. Определите значение переменных по фрагменту программы с помощью трассировки:
а)Dim a As String, b As String, c As String
a = “У нас ”
b = “3”
с = a & b & “пары”
б)Dim Q1 As Integer, Q2 As Integer
Const Q As Integer = 15
Q1 = 1
Q2 = 2
Q1 = Q + Q2
Q2 = Q1 *Q2
с)Dim a As Byte, b As Byte, c As Byte
a = 3
b = 100
b = b + a
с = a * b
1: а,б (в-зарезерв.слово, д-с цифры, г,е - спецсимвол (& и .), ж - пробел)
2а: "У нас 3пары" (вот именно так с пробелами)
2б: q1=1 q2=2 q1=15+2=17 q2=17*2=34
2с: а=3 б=100 б=100+3=103 с=3*103=309
Другие вопросы из категории
указывающее смещение букв в алфавите ( например, код 3 означает, что вместо буквы "а" в зашифрованном тексте указана буква "в"). Дешифрованный текст записать в другой файл.
Читайте также
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub
1)Заменить значение любого элемента массива на а
2)Определить имеются ли четные числа в массиве
3)Заменить все элементы некоторой строки на заданное число
4)Вывести все элементы N столбца и M строки
Задание 1.разработайте программу которая будет вычислять площадь трапеции
задание 2.создайте проект который изменит цвет и размер формы