vb.net编程题 vb程序试题

VB.NET编程习题求教（二）

假设你用来显示内容的是一个Label1

网站的建设创新互联公司专注网站定制,经验丰富,不做模板,主营网站定制开发.小程序定制开发,H5页面制作!给你焕然一新的设计体验!已为报废汽车回收等企业提供专业服务。

For i = 1 To 8

Label1.Text = Label1.Text Chr(13) Chr(10) Space(i - 1) StrDup(18 - 2 * i,Chr(64 + i))

Next

Chr(13) Chr(10)是回车符加换行符

VB.NET程序题

1、

For j = 3 To 19 Step 4

m += 1

Next

为循环5次

For i = 1 To 15 Step 4

Next

为循环4次

则总共循环4*5=20,m没循环一次+1，则m=20

2、从下面这段可以看出“*”与“#”是同步的(因为走else时，会继续循环)，有“*”肯定“#”，而输出“*”只有当i=2,4时，则有2次，为*#*#

For i = 1 To 5

If i Mod 2 = 0 Then

Console.Write("*")

Else

ContinueFor

EndIf

Console.Write("#")

Next

在加上最後次输出：Console.WriteLine("$")

结果则为：*#*#$

VB.NET 编程 关于回文数的题目。

在WinForm项目的窗体上添加一个按钮和文本框，然后把下面的代码粘贴上去就可以了。

Public Function lsH(ByVal n As String) As String

Dim s1 As String = ""

Dim s2 As String = ""

Dim i As Integer = 0

Dim j As Integer

If n.Length = 1 Then

Return ("是回文数")

Else

If Tell_JiOu(n.Length) = 1 Then

j = (n.Length + 1) / 2

s1 = Mid(n, 1, j)

Else

j = n.Length / 2 + 1

s1 = Mid(n, 1, j - 1)

End If

For i = n.Length To j Step -1

s2 = s2 + Mid(n, i, 1)

Next

If s1 = s2 Then

Return "是回文数"

Else

Return "不是回文数"

End If

End If

End Function

'判断一个整数的奇偶

Public Function Tell_JiOu(ByVal k As Integer) As Integer

If k Mod 2 = 0 Then

Return 2

Else

Return 1

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click

Button.Text = lsH(TextBox1.Text)

End Sub

vb.net习题

发到你邮箱了，感觉可以的话就用吧，不过由于本人能力浅薄，有的题未能解决，为此表示歉意！

有问题请发信联系！

邮箱：chengssyx@163.com

VB.NET程序设计题

题1:

最简单了，高中就学过的等差数列，公式代过来就行拉

SUB A()

return 100*101/2

END SUB

题2：

更简单拉，小学初中就学过长度乘高度等于面积

FUNCTION B(Width as integer, Height as integer) AS INTEGER

return Width*Height

END FUNCTION

VB.net编程问题，急急急@！！

下面是实现代码。

‘------------------------------------

Public Class Form1

'添加按钮按下，把输入框文本添加到“添加框”

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

TextBox1.Text = TextBox_add.Text

End Sub

'删除按钮按下，把“添加框”的内容移到“删除框”，并将“添加框”与“删除框”内容清空

Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click

TextBox2.Text = TextBox1.Text

TextBox1.Text = ""

TextBox_add.Text = ""

End Sub

'----但是我觉得你的要求里有"所选项目"这样几个字，没太看懂，如果要可选的话，应该不采用TextBox，而采用ListBox

'---而且你的要求似乎没有写全

'欢迎交流，有意的话留下QQ

End Class