锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net的题 vbnet题库

IT技术integer

VB.Net的问题，输入整数n ， 显示具有n行的杨辉三角形 。参考：
以下为十行的杨辉三角输出，根据这个自己做相应修改，都做好了，那你就是伸手党了 。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1)dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j)" ")
sum= dete(i, j)
Next
Debug.WriteLine(" ")
Next
End Sub
End Class
vb.net 的问题Me.Close是关闭窗体，如果程序只有一个主窗体，就直接关闭程序了
Me.Dispose用来释放组件，通常不需要手工调用它
End是强制关闭程序，而不理程序现在的状态，只有万不得已的情况下，才使用这个命令 。
正常都会调用Me.Close ， 然后Me.Close就会自动调用Me.Dispose 。
所以Me.Close是资源释放最彻底的方式 。
而End是资源释放最不彻底的方式 。
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("输入Nvb.net的题的值.")
If N = "" Then Return
MessageBox.Show(Math(N))
2.用最简单vb.net的题的方法将个位数和十位数互换,一定要最简单vb.net的题的方法..比如31换成13.
Dim s As String = InputBox("输入一个十位数.")
If s = "" Then Return
MessageBox.Show(StrReverse(s))
VB.NET的 题目下面程序的输出结果为？ x=10:y=20 label1.text=x&" "&y&"=" label1.text&=x y&VBCRLF最后结果为： 10 20=30 [回车]第一个赋值语句应该不用解释把，给你解释下Label1.Text = xyvbCrLfvb.net中多了双目运算符，也就是 =，-=，*= ， /=等这些，用x =y来说明，等价于x=x y 所以上面那句等价于Label1.Textg = Label1.TextxyvbCrLf 第一句Label的值为10 20= ， 那么在跟上x y的值后就是10 20=30，最后在跟上一个回车 。
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.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的题 vbnet题库】关于vb.net的题和vbnet题库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何在C语言中创建服务器？ c怎么创建服务器

    下一篇：直播话术点心，直播间点心有什么用