从vb.net程序题 vbnet implements

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("$")

结果则为：*#*#$

相关问答

Q1: 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

Q2: 我在用VB.net做一个计算程序，遇到一个问题。一个数15563，需要取出万位和千位（1500）

dim a as integer

a=15563

万位=a\10000

千位=a\1000 mod 10

百位=a\100 mod 10

if a mod 105 then 百位+=1

Q3: vb.net的两道题

1.编程求1!+3!+5!+....+n! N由inputbox获取

Function Math(ByVal N As Integer) As Integer

Dim c As Integer = 1

For i = 1 To N

c *= i

Next

Return c

End Function

Dim N As String = InputBox("输入N的值.")

If N = "" Then Return

MessageBox.Show(Math(N))

2.用最简单的方法将个位数和十位数互换,一定要最简单的方法..比如31换成13.

Dim s As String = InputBox("输入一个十位数.")

If s = "" Then Return

MessageBox.Show(StrReverse(s))

Q4: 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 implements的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。