就一个文本框和一个按钮,用for…next语句编写,题目:按下按钮1在文本框里面显示1到100之内所有能被5整除且不能被3整除的数。不知道为什么我做的答案始终只能显示3和4……...

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Maja

    14人对此回答表示赞同

    Option Explicit

    Private Sub Command1_Click()
    Dim x As Long
    Dim txt As String
    For x = 1 To 100
    If x Mod 5 = 0 And x Mod 3 <> 0 Then txt = txt & x & "--"
    Next x

    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Hannah

    6人对此回答表示赞同

    新建一个文本框Text1,Text属性为空,MultiLine属性为True,ScrollBars属性为2。
    新建一个命令按钮Command1,添加以下代码:
    Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 100
    If (i Mod 5 = 0) And (i Mod 3 <> 0) Then Text1.Text = Text1.Text & vbCrLf & i
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Julian

    4人对此回答表示赞同

    for i = 1 to 100
    if i mod 5 = 0 and i mod 3 <> 0 then print i
    next i
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部