上机操作题答案11

=============================模块================================第1题：新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\221\”文件夹下。按下表的要求添加控件，并设置其属性，操作后保存！对象对象名属性名属性值LabelLabel1Caption长LabelLabel2Caption宽TextBoxText1Text3厘米TextBoxText2Text4厘米CommandButtonCommand1Caption求长方形周长第2题：打开考生目录VB\143\文件夹中的文件：d1.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，求1到50之间所有的奇数和。DimiAsIntegerDimsAsIntegers=0Fori=1To50Step2s=s+iNextiPrint1到50之间所有的奇数和：;s第3题：打开考生目录VB\150\文件夹中的文件：k3.vbp进行以下操作后并保存！在窗体k3.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：从text1文本框中输入一个数，判断能否被3整除，并在text2文本框中输出结果能或不能。a=Val(Text1.Text)IfaMod3=0ThenText2.Text=能ElseText2.Text=不能EndIf测试数据在text1文本框中输入9，在text2文本框中输出：能；在text1文本框中输入8，在text2文本框中输出：不能。第4题：新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\148\”文件夹下。按下表的要求添加控件，并设置其属性，操作后保存！对象对象名属性名属性值LabelLabel1Caption电视机LabelLabel2Caption洗衣机TextBoxText1Text12件TextBoxText2Text13件CommandButtonCommand1Caption总数.第5题：新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\151\”文件夹下。按下表的要求添加控件，并设置其属性，操作后保存！对象对象名属性名属性值LabelLabel1Caption选修1LabelLabel2Caption选修2TextBoxText1Text45TextBoxText2Text38CommandButtonCommand1Caption计算总人数第6题：新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\153\”文件夹下。按下表的要求添加控件并置其属性，操作后保存！对象对象名属性名属性值LabelLabel1Caption用户名LabelLabel2Caption密码TextBoxText1Text李辉TextBoxText2Text******CommandButtonCommand1Caption登录第7题：打开考生目录VB\154\文件夹中的文件：k4.vbp进行以下操作后并保存！在窗体k4.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：从text1文本框中输入一个数,判断这个数是否为零或正负整数，并在text2文本框中输出结果。测试数据在text1文本框中输入0，在text2输出:0。在text1文本框中输入2，在text2输出:正数。在text1文本框中输入-2，在text2输出:负数。PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa=0ThenText2.Text=0Ifa0ThenText2.Text=正数Ifa0ThenText2.Text=负数EndSub第8题：新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\158\”文件夹下。按下表的要求添加控件，并设置其属性，操作后保存！(注：Text1的属性值为半角字符)对象对象名属性名属性值FormForm1Caption计时LabelLabel1Caption倒计时LabelLabel1Width1000TextBoxText1Text5:00CommandButtonCommand1Caption开始计时第9题：打开考生目录VB\222\文件夹中的文件：d3.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，求1*3*5*7*9的积。s=1Fori=1To10Step2S=s*iNexti第10题：打开考生目录VB\152\文件夹中的文件：d4.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，1到100之间能被6整除的个数。DimsasintegerDimIasintegerS=0ForI=1to100step1IfImod6=0thens=s+1endifnextiprints第11题：打开考生目录VB\157\文件夹中的文件：k5.vbp进行以下操作后并保存！在窗体k5.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：分别从text1、text2文本框中输入一个正整数a和b，判断a能否被b整除，若能，则在text3文本框中输出能，否则则输出：不能。测试数据在text1文本框中输入20，text2文本框中输入5，则text3文本框中输出：能。在text1文本框中输入20，text2文本框中输入3，则text3文本框中输出：不能。DimaAsInteger,bAsIntegera=Val(Text1.Text):b=Val(Text2.Text)IfaModb=0ThenText3.Text=能IfaModb0ThenText3.Text=不能第12题：打开考生目录VB\146\文件夹中的文件：d2.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，求1到100之间能被5整除的个数。DimsasintegerDimIasintegerS=0ForI=1to100step1IfImod5=0thens=s+1endifnextiprints第13题：打开考生目录VB\147\文件夹中的文件：k2.vbp进行以下操作后并保存！在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：分别在text1和text2文本框中输入a和b两个数，比较a和b的大小，并在text3文本框中输出较小的数。测试数据在text1文本框中输入3，在text2文本框中输入2，输出2；在text1文本框中输入4，在text2文本框中输入7，输出4。DimaAsIntegerDimbAsIntegera=Val(Text1.Text):b=Val(Text2.Text)Ifa=bThenText3.Text=belseText3.Text=a第14题：打开考生目录VB\144\文件夹中的文件：k1.vbp进行以下操作后并保存！在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：分别在text1和text2文本框中输入a和b两个数，比较a和b的大小，并在text3文本框中输出较大的数。测试数据在text1文本框中输入3，在text2文本框中输入2，text3文本框输出3；在text1文本框中输入4，在text2文本框中输入5，text3文本框输出5。DimaAsIntegerDimbAsIntegera=Val(Text1.Text):b=Val(Text2.Text)Ifa=bThenText3.Text=aelseText3.Text=b第15题：打开考生目录VB\156\文件夹中的文件：d5.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，求1×2×3×4×5×……×10的值。DimiAsIntegerDimsAslongs=1Fori=1To10s=s*iNextiPrint10的阶乘是：;s第16题：打开考生目录VB\158\文件夹中的文件：k5.vbp进行以下操作后并保存！在VB代码窗口指定位置修改完善程序代码实现，求5+10+15+20+……+50之间所有的和。DimiAsIntegerDimsAsIntegers=0Fori=50To5Step-5s=s+iNextiPrint5到50之间所有的5的倍数和：;s