Visual Basic .NET - ответы
Количество вопросов - 783
If условие1 ThenОператор1 ElseIf условие2 ThenОператор2ElseОператор3End If
Dim i As SingleDim Wrap As StringFor i = 1 To 1 Step 0.1TextBox1.Text = TextBox1.Text & i Next i
Dim i As SingleDim Wrap As StringFor i = 1 To 1 Step 0.1TextBox1.Text = TextBox1.Text & i If i= "1" Then Exit ForNext i
Dim i As SingleFor i = 1 To 1 Step 1TextBox1.Text = TextBox1.Text & i If i= "1" Then Exit ForNext i
TryPictureBox1.Image = System.Drawing.Bitmap.FromFile ("a:\Fileopen.bmp")Catch When Err.Number = 53 MsgBox("Ошибка 1")Catch When Err.Number = 7 MsgBox("Ошибка 2")CatchMsgBox("Проблема при загрузке файла")End Try
Function название_функции ([аргументы]) As типоператоры_функции[Return значение]End FunctionКакие синтаксические элементы являются обязательными?
Sub название_процедуры ([аргументы ])операторы_процедурыEnd SubКакие синтаксические элементы являются необязательными?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = qwert(3) End Sub Private Function qwert(ByVal a As Integer) Dim i As Integer For i = 1 To 2 a= i * a Next iReturn a End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = 3 Label1.Text = a & qwert(a) & a End Sub Private Function qwert(ByVal a) a = a + 1 End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
Cols = "Это строка"S = Cols.SubString(4, 2)Чему будет равна строковая переменная S после выполнения этого кода?
Cols = "Это строка"S = Cols.SubString(4, 6)Чему будет равна строковая переменная S после выполнения этого кода?
TryPictureBox1.Image = System.Drawing.Bitmap.FromFile ("a:\Fileopen.bmp")Catch When Err.Number = 53 MsgBox("Ошибка 1")Catch When Err.Number = 7 MsgBox("Ошибка 2")CatchMsgBox("Проблема при загрузке файла")End Try
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = qwert(2) End Sub Private Function qwert(ByVal a As Integer) Dim i As Integer For i = 2 To 3 Return i * a Next i End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
If условие1 ThenОператор1 ElseIf условие2 ThenОператор2ElseОператор3End If
Dim i As SingleDim Wrap As StringFor i = 1 To 2.5 Step 0.5If i = 2 Then Exit ForTextBox1.Text = TextBox1.Text & i Next i
Dim i As SingleFor i = 1 To 2 Step 1TextBox1.Text = TextBox1.Text & i If i= "2" Then Exit ForNext i
Function название_функции ([аргументы]) As типоператоры_функции[Return значение]End FunctionКакие синтаксические элементы являются необязательными?
Sub название_процедуры ([аргументы ])операторы_процедурыEnd SubКакие синтаксические элементы являются обязательными?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = qwert(3) End Sub Private Function qwert(ByVal a As Integer) Dim i As Integer For i = 1 To 2 Return i * a Next i End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = 3 Label1.Text = a & qwert(a) & a End Sub Private Function qwert(ByRef a) a = a + 1 End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
If условие1 ThenОператор1 ElseIf условие2 ThenОператор2ElseОператор3End If
Cols = "Это строка"S = Cols.SubString(1, 3)Чему будет равна строковая переменная S после выполнения этого кода?
Dim i As SingleTextBox1.Text =""For i = 1 To 2.5 Step 0.5TextBox1.Text = TextBox1.Text & i Next i
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = 2 Label1.Text = a & qwert(a) & a End Sub Private Function qwert(ByRef a) a = a + 3 End FunctionЧто отобразится в поле Label1 после нажатия на кнопку Button1?
TryPictureBox1.Image = System.Drawing.Bitmap.FromFile ("a:\Fileopen.bmp")Catch When Err.Number = 53 MsgBox("Ошибка 1")Catch When Err.Number = 7 MsgBox("Ошибка 2")CatchMsgBox("Проблема при загрузке файла")End Try
For переменная = начальное_значение To конечное_значение повторяемые операторыNext [переменная]Какие ключевые слова являются обязательными?
Dim i As DoubleFor i = 1 To 1.4 Step 0.2If i = 1.2 Then Exit ForTextBox1.Text = TextBox1.Text & i Next i