从vb.net程序题 vb基础编程题及答案

VB.NET程序设计题

题1:

创新互联公司是一家专注于成都做网站、成都网站设计与策划设计,武鸣网站建设哪家好?创新互联公司做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:武鸣等地区。武鸣做网站价格咨询:18982081108

最简单了，高中就学过的等差数列，公式代过来就行拉

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编程问题，急急急@！！

下面是实现代码。

‘------------------------------------

Public Class Form1

'添加按钮按下，把输入框文本添加到“添加框”

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

TextBox1.Text = TextBox_add.Text

End Sub

'删除按钮按下，把“添加框”的内容移到“删除框”，并将“添加框”与“删除框”内容清空

Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click

TextBox2.Text = TextBox1.Text

TextBox1.Text = ""

TextBox_add.Text = ""

End Sub

'----但是我觉得你的要求里有"所选项目"这样几个字，没太看懂，如果要可选的话，应该不采用TextBox，而采用ListBox

'---而且你的要求似乎没有写全

'欢迎交流，有意的话留下QQ

End Class

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程序题目求解！在线等

... 先后按顺序LABLE1，LABLE2，LABLE3，LABLE4

（1）x1=1 Y1:X2=0 Y2=1x3=2 y3=3 x4=1 y4=3

(2)x2=0 y2=cx3=2 y3=3

(3)A ABC

(4)

16 6 10

30 10 20

46

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.编程求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))