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中，做一个系统答题的设计，怎么给每道题的答案积分，最后得到总分？

最简单的是定义个单精度变量，比如n

然后用到If...Then... 判断语句。

举例说明：1+1=2 判断这个语句

if text1.text="2" then n+=20 '这个数值是可以随便设置的，就是这道题目的分值。

如果有什么不明白可以QQ联系我。

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题 vbnet trim
文章出自：http://kswjz.com/article/doipdej.html