看了你程序,感到很糟.

注释都不写就好意思拿出来了?

没什么不好意思的啊.等一下啊.
label1.caption=猜数
label2.caption=提示
label3.caption=积分
label4.caption=设定猜数次数
command1.caption=确定
command2.caption=开始猜数
command3.cattion=退出

Dim rom As Integer
Dim num As Integer
Dim time As Integer
Private Sub Command1_Click()
time = 0
rom = Int(Rnd * 100 + 1)
Command1.Enabled = False
Command2.Enabled = True
Text1.Enabled = True
End Sub
Private Sub Command2_Click()
num = Int(Val(Text1.Text))
If time < 10 Then
If num > rom Then Label1.Caption = "你猜的大于了。"
If num < rom Then Label1.Caption = "你猜的小于了。"
If num = rom Then Label1.Caption = "你猜对了。"
Else
Label1.Caption = "猪啊，10次都猜不对！"
Text1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End If
time = time + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "显示情况"
Text1.Text = ""
Form1.Caption = "猜数游戏"
Command1.Caption = "出题"
Command2.Caption = "猜一猜"
rom = 0
Text1.Enabled = False
Command2.Enabled = False
End Sub

这个可以用.

窗体标题为"猜数游戏"。单击"出题"按钮生成一个1-100之间的随机数，然后在文本框中输入一个数，单击"猜一猜"按钮，并在标签框内给出提示信息（大于、小于或等于随机数），猜1个数超过10次不可再猜该数。其他要求：随机数产生后锁定"出题"按钮（即不可用），激活文本框（即可用）；猜数超过10次后锁定文本框，激活"出题"按钮。

没去做VB版的,倒是做过一个C版的
/* Note:Your choice is C IDE */
#include "stdio.h"
#include "stdlib.h"
#include "time.h"
int Number[4];                                        /*定义四个随机数数组*/
void GetNum(){                                        /*获取随机数*/
    int i,j,k;
    srand(time(0));                                   /*初始化 */
    Number[0]= rand()%10;                             /*产生0--10之间的随机数*/
    for(i=1;i<4;i++){
        while(1){
            int Flag=0;
            srand(time(0));                           /*初始化 */
            k=rand()%10;
        for(j=0;j<=i;j++)  if(k==Number[j]) Flag=1;   /*判断获得的数是否已经存在*/
        if(Flag==0){                                  /*当获得的数不存在*/
            Number[i]=k;
             break;                                   /*取得结果,跳出循环*/
            }
        
        }
    }
}
int  Guess(){                                         /*猜数过程*/
        char Choice;
        do{
        
        int i,j;
        int Result[4];
        int RightNum=0,RightPos=0;                   /*正确的数字个数和正确的位置个数*/
        printf("\n请输入四个0~9之间不重复的数字:");
        for(i=0;i<4;i++) scanf("%d",&Result[i]);     /*输入四个数字*/
        for(i=0;i<4;i++)
        for(j=0;j<4;j++){
            if(Result[i]==Number[j]) RightNum++;
            if(Result[i]==Number[j]&&i==j) RightPos++;
        }
        if(RightNum==4&&RightPos==4){
            printf("\n您猜对啦!要不要再玩一局?(Y/N)");
            Choice=getchar();
            if(Choice=='n') {return 0;break;}
            else         return 1;
        }
        else
        {   printf("\n您猜错啦!以下是反馈结果:");
            printf("%dA%dB",RightNum,RightPos);
        }
    }
    
        while(1);
        
    }
main()
{   
    int i;
    int Play=1;
    
    do{
        clrscr();
        printf("正在产生随机数.......");
        GetNum();
        clrscr();
        for(i=0;i<4;i++) printf("%d  ",Number[i]);
        Play=Guess();
        getch();
    }
    while(Play==1);
}

　　　

做过类似的案例

这题,貌似不难吧

貌似不难,其实很不好做.是吗?

这个题目我也做了一下,有一点问题就是在十次猜不中退出窗体的控制