vb.net程序题 vbnet doevent
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的 题目下面程序的输出结果为? x=10:y=20 label1.text=x&"+"&y&"=" label1.text&=x+y&VBCRLF
最后结果为: 10+20=30 [回车] 第一个赋值语句应该不用解释把,给你解释下Label1.Text = x + y vbCrLf vb.net中多了双目运算符,也就是+=,-=,*=,/=等这些,用x+=y来说明,等价于x=x+y 所以上面那句等价于Label1.Textg = Label1.Text x + y vbCrLf 第一句Label的值为10+20=,那么在跟上x+y的值后就是10+20=30,最后在跟上一个回车。
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程序题
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程序题 vbnet doevent
URL分享:http://pwwzsj.com/article/dopjisp.html