VB小程序

40关注574浏览

我朋友想做1个VB小程序,要求如下:
程序运行后生成2位数字(看不到的),有1个文本框给使用者输入数字,旁边有1个确定按钮,如果输入的数字跟随即生成的数字相差不超过10就提示“差一点点”如果是超过10就提示“差很远”,知道使用者输入了正确的随机数 程序就退出。他好像说要做成Active dll 控件。
懂的高手教一下我,哈!

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

    2044人对此回答表示赞同

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

    8人对此回答表示赞同

    病情分析:
    您好,成年男性阴茎勃起后长大于8cm.就不用担心。
    指导意见:
    如果您对自己目前的状况不太满意,可以去专业的男性生殖整形专科就诊,通过阴茎延长术来增长增粗,建议您去专业的男性专科医院进行检查和手术。
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Radinka

    8人对此回答表示赞同

    Dim a As Integer
    a = Int(90 * Rnd + 10)
    Private Sub Command1_Click()
    b = Abs(a - Val(Text1.Text))
    If b > 10 Then
    MsgBox "差很远"
    elseIfb <= 10 Then
    MsgBox "差一点点"
    els
    End
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 裸奔的花生

    7人对此回答表示赞同

    Private Sub Form_Click()
        Dim i%, j%
        
        j = 60
        
        For i&nb
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 邱宸

    4人对此回答表示赞同

    Option Explicit
    Dim rndNum As Integer

    Private Sub Command1_Click()
    If Val(Text1) = rndNum Then
    End
    ElseIf Val(Text1) <= rndNum + 10 And Val(Text1) >= rndNum - 10 Then
    MsgBox "差一点点"
    Else
    MsgBox
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Colton4

    4人对此回答表示赞同

    optional explicit
    dim num as integer
    private sub form_load()
    randomize
    num=int(90*rnd)+10
    end sub
    private sub command1_click()
    dim tnum as integer
    tnum=int(val(text1))
    if tnum=num then
    msgbox "猜对了!&qu
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 偷生者

    3人对此回答表示赞同

    Dim a As Integer
    Private Sub Command1_Click()
    b = Abs(a - Val(Text1.Text))
    If b > 10 Then MsgBox "差很远"
    If b > 0 And b <= 10 Then MsgBox "差一点点"
    If b = 0 Then End
    End Sub
    Private Sub Form_Load(
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 林立慧

    1人对此回答表示赞同

    VB好像没有办法生成dll 控件
    展开
    1
    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
扫码咨询

扫码咨询套餐

回到顶部