在窗体上有—个命令按钮Commandl和—个文本框Textl，编写事件代码如下：

PrivateSubCommandl_Click（）

Dimi，j，x

Fori＝1To20Step2

x＝0

Forj＝iTo20Step3

x＝x＋1

Nextj

Nexti

Textl.Value＝Str（x）

EndSub

打开窗体运行后，单击命令按钮，文本框中显示的结果是（）。

A．1

B．7

C．17

D．400

紫外光因其波长短而能产生大量的热，地表热量基本上都是由紫外光产生的。( )