建站
咨询
售后
建站咨询
用VB.NET编程，任意输入一个整数，判定该整数的奇偶性
Private Sub Command1_Click()
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、雅安服务器托管、营销软件、网站建设、海阳网站维护、网站推广。
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
vb.net 在TextBox1中输入数字和空格，并求奇数数字，并求和
给你个参考的例子
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim a_point As Integer = TextBox1.SelectionStart
Dim bs As String = Regex.Replace(TextBox1.Text, "[^ \d]", "")
If TextBox1.TextLength bs.Length Then
TextBox1.Text = bs
TextBox1.SelectionStart = a_point
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gs() As String = (From mt As Match In Regex.Matches(TextBox1.Text, "\d*[13579]\b") Select mt.Value).ToArray
TextBox2.Lines = gs
TextBox3.Text = ((From mt As String In gs Select CInt(mt)).ToArray).Sum
End Sub
End Class
请教VB.net的问题
1、定义两个数，分别用来存放奇数和偶数
2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数
3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。
语句可以用If...else....end if
编写程序，根据用户在文本框Text1中输入的文本，统计其中数字(0~9)中奇数个偶数的个数、英文字
//
string str=Text1.text;
int ji=0,ou=0,da=0,xiao=0,qita=0,temp;
for(int i=0;istr.length;i++)
{
if(str[i]='a'str[i]='z')//小写字母
{
xiao++;
}
else if(str[i]='A'str[i]='Z')//大写字母
{
da++;
}
else if(str[i]='0'str[i]='9')//
{
temp=Convert.Int16(str[i]);
if(temp%2==0)
{
ou++;//偶数
}
else ji++;//奇数
}
else qita++;//其他
}
用VB.NET的FOR语句怎么编写1到100所有奇数的和啊 ！！！马上要考试了 急！！！
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇数和为：" sSum,"提示"
==========================================
Sum 是关键字，是个系统函数
sSum 只是一个变量，晕，可以改成别的。
vb.net怎么同时判定多个数的奇偶性
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A(100) As Integer
Dim n1 As Integer = 0
Dim n2 As Integer = 0
For i = 1 To 100
Randomize()
A(i) = Int(Rnd() * 1000 + 1)
If A(i) Mod 2 = 0 Then
n1 += 1
Else
n2 += 1
End If
Next
MsgBox("所产生的100个数字中偶数有" n1 "个，奇数有" n2 "个")
End Sub
新闻名称：vb.net奇数偶数 用VB表示奇偶数的代码
标题URL：http://cqwzjz.cn/article/hpcgog.html
