题目内容（请给出正确答案）

[主观题]

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上

输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“…”相关的问题

第1题

在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦

点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click() num=Val(Text1．Text) If【】Then Print num Else Text1．Text=" " 【】 End If End Sub

点击查看答案

第2题

下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5

个数并输出。 Private Sub Form_Click() Dim k As Integer Dim n As Integer，i As Integer n=Len(k) Open【】As10 Len=n For i=1 To 10 k=InputBox("请输入一个整数") 【】 Next i 【】 Get 10，，k Print k End Sub

点击查看答案

第3题

运行下列程序：Private Sub form_Click（)t = Val（InputBox（"请输入一个数："))x = t

运行下列程序：

Private Sub form_Click()

t = Val(InputBox("请输入一个数："))

x = t - 1

Select Case t

Case 1 To 10

y = 4 * t

Case Is >10

y = 3 * t

Case Else

y = 2 * t

End Select

Print x; y

End Sub

运行时，从键盘输入4，输出的结果是()。

A.3 16

B.4 4

C.3 4

D.4 10

点击查看答案

第4题

如下VB程序段: x=Val（Text1.Text）If x > 3 ThenIf x <=6 Then y=2 * xElse y=3 * xElsey=4 * xEnd IfPrint y若程序运行时在文本框Text1中输入6,则y的值是（）

A.24

B.18

C.12

D.6

点击查看答案

第5题

下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。

Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then LabeCaption=“偶数” Else LabeCaption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If【】ThenKeyAscii=0 End Sub

点击查看答案

第6题

下列程序段是从键盘输入的字符中统计小写字母的个数，用换行符结束循环。请填空。 int n=0,c;

c=getchar(); while(c!=\n) { if(______) n++; }

点击查看答案

第7题

某一接口电路中，需要通过8253定时从90H号外部端口读入一个字节数到2500H开始的单元中，假设加在通道的脉冲输入端的时钟频率为2MHz，每定时1s输入一个数，在输入200个数后停止工作。(1)请说出8253两种定时1s的软硬件工作方法。(2)当接口中断系统已经设计好时，请编写实现定时输入200个数的工作主程序和中断服务程序。假设8253的端口地址为60H~63H。

某一接口电路中，需要通过8253定时从90H号外部端口读入一个字节数到2500H开始的单元中，假设加在通道的脉冲输入端的时钟频率为2MHz，每定时1s输入一个数，在输入200个数后停止工作。（1)请说出8253两种定时1s的软硬件工作方法。（2)当接口中断系统已经设计好时，请编写实现定时输入200个数的工作主程序和中断服务程序。假设8253的端口地址为60H~63H。

点击查看答案

第8题

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框（MsgBox)来给出

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub

点击查看答案

第9题

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束

输入，输出结果。请补充完整下列程序段。 Dim x，amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While【】 If x＞amax Then amax=x End If If【】Then amin=x End If x=InputBox("enter a score") Loop Print"max="；amax，"min="；amin

点击查看答案

第10题

在考生文件夹下有一个工程文件sjt3．vbp，请在名称为Forml的窗体上画一个名称为Text1 的文本框

和一个名称为C1、标题为“转换”的命令按钮，如图8所示。在程序运行时，单击“转换”按钮，可以把Text中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“转换”按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，其功能是： ①单击“读数据”命令按钮，把考生文件夹下in4．dat文件中已按升序方式排列的60个数读入数组A，并显示在Text1中； ②单击“输入”按钮，弹出一个输入对话框，接收用户输入的任意一个整数；单击“插入”按钮，将输入的数插入A数组中合适的位置，使其仍保持A数组的升序排列，最后将A数组的内容重新显示在Textl中。右窗体文件中已经给出了全部控件(如图9所示)和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。本程序只考虑插入一个整数的情况。注意：不得修改已绍存在的内容和控件属性，最后将修改后的文件按原文件名存盘。在考生文件夹下有一个工程文件sjt3．vbp，请在名称为Forml的窗体上画一个名称为Text1 的

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）