锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net编程题 vb编程题目及答案

IT技术回文

VB.NET 编程 关于回文数的题目 。在WinForm项目的窗体上添加一个按钮和文本框，然后把下面的代码粘贴上去就可以了 。
Public Function lsH(ByVal n As String) As String
【vb.net编程题 vb编程题目及答案】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.Length1) / 2
s1 = Mid(n, 1, j)
Else
j = n.Length / 21
s1 = Mid(n, 1, j - 1)
End If
For i = n.Length To j Step -1
s2 = s2Mid(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程序题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编程习题求教（二）假设你用来显示内容的是一个Label1
For i = 1 To 8
Label1.Text = Label1.TextChr(13)Chr(10)Space(i - 1)StrDup(18 - 2 * i,Chr(64i))
Next
Chr(13)Chr(10)是回车符加换行符
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编程题的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb编程题目及答案、vb.net编程题的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：鸿蒙系统桌面布局图册去除文字，鸿蒙桌面图片怎么把图库字眼去掉

    下一篇：天猫如何推广，天猫如何推广引流客户