大学VB整除运算按要求与步骤的怎么编程？

重点编程程序代码！

第1个回答 2013-10-10

VB中添加程序如下:
Private Sub Command1_click()

If (Val(Text1) Mod 3=0 And Val(Text1) Mod 7=0) Then
Label2.Caption="Yes"
Else
Label2.Caption="No'
End If

End Sub

第2个回答 2013-10-10

全部做好了，看附件：

本回答被提问者采纳

第3个回答 2013-10-10

if(number%3==0 || number%7 ==0){
Text1.Text = "Yes";
}else{
Text1.Text = "No";
}
C#写的，估计你都不会改！！！

第4个回答 2013-10-10

请参考附件。

相似回答

vb中整除运算和取模运算分别是怎样算的???答：如果参与整除或取模运算的两个数都是整数，那么问题就很简单，直接算就行了，比如：5 \ 2 = 2，5 Mod 2 = 1。但是如果参与运算的数有小数，那么问题就稍微复杂一些，VB会先把小数取整后再运算，而取整采用的并不是我们熟知的“四舍五入”原则，而是“四舍六入五成双”原则。

vb编程 1000以内能被7、17整除的正整数的个数,并求和答：Private Sub Command1_Click()Dim a, s, i As Integer For i = 1 To 1000 If i Mod 7 = 0 And i Mod 17 = 0 Then a = a + 1 s = s + i End If Next i Print a, s End Sub

编写VB程序 5、输出1---200之间能被5整除的数,要求一行输出10个数...答：dim i as integer dim j as integer dim str as string j=0 for i=1 to 200 if i%5=0 then str = str + " " + i end if j=j+1 if j=10 then Console.WriteLine(str)str=""j=0 end if next

VB编程求1到1000中能被3整除的数的个数答：dim num3,num7 as integer for i=1 to 1000 if i mod 3=0 then num3=num3+1 end if if i mod 7=0 then num7=num7+1 end if next 最后num3就是能被3整除的数的个数。num7是能被7整除的个数。

用VB编程,判断200~2000中间有多少个整数能被3整除,求这些数之和,并在...答：Private Sub Command1_Click()Dim i As Integer, n As Integer, s As Long n = 0: sum = 0 For i = 201 To 2000 Step 3 s = s + i: n = n + 1 Next i Print "200-2000之间有" & n; "个数能被3整除，它们的和是" & s Debug.Print "200-2000之间有" & n; "个数能...

Vb编程求1000以内能被17或者23整除的正整数个数。答：Private Sub Command1_Click()Dim A_17 As Long Dim A_23 As Long Dim A_391 As Long Dim A_num As Long Me.Cls A_17 = 0 Do While A_17 * 17 < 1000 A_17 = A_17 + 1 Loop Print "1000以内能被17整除的正整数个数共有", A_17 A_23 = 0 Do While A_23 * 23 < ...

VB编程产生100个0-100之间的随机整数找出其中能被3整除的数,并且按由...答：函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10...

大家正在搜

什么是整除运算整除怎么计算 vb整除运算整除计算能被4整除的数能被9整除的数能被6整除的数 VB中整除 vb除和整除