冲刺vb答案.docVIP

3、打开考生文件夹\211\文件夹中的工程文件工程1.vbp进行以下操作后并保存！（在字符串相连接时不要使用+，应使用）完善程序，使之实现如下功能：输入一个时间秒数，单击转换按钮，转换成时分秒的形式，如图所示!注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句完善程序，输入时间秒，转换成时、分、秒形式！注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a, b, c, d As DoubleDim h As Stringa = Val(Text1.Text)b = a\3600 转换小时c = (a-b*3600)\60 转换分钟d = (a Mod 3600) Mod 60 转换秒h = b 小时 c 分钟 d “秒”Text2.Text = hEnd Sub5、打开考生文件夹\213\文件夹中的工程文件工程1.vbp进行以下操作后并保存！（在字符串相连接时不要使用+，应使用）完善程序，找出100以内的偶数(包括100)中能被3整除的正整数，并求出它们的和！单击求和按钮时，在文本框中输出和！注：(1) 删除①、②、③，填入正确的语句(2) 不能删除注释语句完善程序，找出100以内的偶数(包括100)中能被3整除的正整数，并求出它们的和！单击“求和”按钮时，在文本框中输出和！注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim x As Integerx = 0For i = 0 To 100 Step 2 第一空 If a mod 3 = 0 Then 第二空 X = x + i 第三空 End IfNext iText1.Text = xEnd Sub2、打开考生文件夹\216\文件夹中的工程文件工程1.vbp进行以下操作后并保存！（在字符串相连接时不要使用+，应使用）(1) 在窗体Form1中添加一个名为Command1的按钮，并在按钮上显示文字画图；(2) 完善程序，单击画图按钮，使其能输出如下图形。注：(1) 删除①、②、③，填入正确的语句(2) 不能删除注释语句注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click() Dim i, j As Integer For i = 3 To 0 Step -1 第一空 Print Space(i); 打印空格 For j = 1 To 10 Print “*”; 第二空 Next j Print Next iEnd Sub5、打开考生文件夹\217\文件夹中的工程文件工程1.vbp进行以下操作后并保存！（在字符串相连接时不要使用+，应使用）完善程序，使之实现如下功能：程序运行时，输入3个整数，输出最小的一个整数！注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句输入3个整数，输出最小值注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox(请输入数据, 输入3个数)For i = 1 To 2 第一空 x = InputBox(请输入数据, 输入3个数) If minx Then 第二空 min = x End IfNext iText1.Text = min 第三空End Sub3、打开考生文件夹\218\文件夹中的工程文件工程1.vbp进行以下操作后并保存！（在字符串相连接时不要使用 +，应使用 ）五一节时，某商场推出促销活动，购物总金额达到100元可以打9折，达到200元可以打8折，100元以下不打折！完善程序，使之实现如下功能：在第一个文本框中输入购物总金额，单击计算按钮时，在第二个文本框中输出实际支付金额！注：(1) 删除①、②、③，填入正确的语句 (2) 不能删除注释语句Private Sub Command1_Click()Dim a As SingleDim b As Singlea = Val(Text1.Text)If a = 200 Then b = a * 0.8elseif a = 100 Then b = a * 0.9Else b = aEnd