下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______PrivateSubCommand1_Cli

题干

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub

上一题下一题 0.99难度填空题更新时间:2015-08-21 04:12:05

答案(点此获取答案解析）

同类题5

小明的爸爸在今年初为公司购买一台价值50万的商务汽车，汽车价值在使用过程中逐年减少，从明天到第5年，每年初的价值比上年初减少4万元，从第6年开始，每年初的价值为上年初的85%。爸爸让小明算一下第n年初这辆汽车的价值是多少？小明为此设计了下面Visual Basic程序，运行程序，在文本框Text1中输入年数n，单击“计算”按钮Command1，则在标签Label1中显示此年初的价值a。程序运行界面如图所示：

Private Sub Command1_click （）
Dim n as single, a as single
n="Val" (text1.text）
If n = Int(n） And n >=" 1" Then
If n<="5" then
a=  ①
Else
a=30*0.85^(n-5）
End if
Label3.caption=“第”+Str(n）+“年初价值”+  ② +“万元”
Else
Label3.caption=“输入的年数不符合要求！”
Else if
End Sub
（1）用计算机编程解决问题，最核心的过程是。
（2）本程序窗体中使用的控件类型有命令按钮、文本框和。
（3）流程图是一种直观的、用图形来描述算法的方法。流程图中“选择分支”和“数据输出”分别用、图形来表示。
（4）程序中的语句Dim n As single 将变量n的数据类型定义为。
（5）在设计用户界面时，要使本程序中command1命令按钮上显示文字“计算”，需设置此控件的属性（选填“caption”、“font”或 “text”）
（6）程序中①处应填入的表达式为
（7）程序中②处应填入
（8）语句n="Val" (text1.text）中函数Val (text1.text）的作用是
（9）Text1的控件类型是
（10）用计算机编程解决问题，大致分为五个过程：①设计算法、②调试运行、③编写程序、④检测结果、⑤分析问题

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5